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FOREWORD 

This  report  is  an  Instruction  manual  for  operating  the  Generator 
Test  Facility.  This  test  facility  was  built  by  engineers  and  technicians 
of  the  Power  Systems  Branch,  Aerospace  Power  Division  of  the  Aero  Propul¬ 
sion  Laboratory,  Wright-Patterson  AFB,  Ohio,  under  Project  3145,  Task 
314529,  Work  Unit  31452950.  This  manual  was  written  by  Lt.  Philip  G. 
Gaberdiel,  AFWAL/P00S-2,  during  the  period  August  1979  through  February 
1980.  The  author  submitted  the  report  in  February  1980. 
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SECTION  I 
BACKGROUND 

Present  and  future  aircraft  systems  require  that  the  aircraft  electri¬ 
cal  generation  system  provide  high  quality  electrical  power  under  a  wide 
range  of  operating  conditions.  In  order  to  determine  the  performance  of 
prototype  generating  systems,  the  test  engineer  must  conduct  a  series  of 
tests  in  which  the  operating  conditions  of  the  generator  are  varied  to 
simulate  aircraft  operation.  Tests  are  performed  with  various  electrical 
load  levels  presented  to  the  generator,  including  overload  and  fault  con¬ 
ditions.  All  tests  require  that  the  generator  be  operated  at  a  known 
speed  within  its  operating  range.  Some  tests  require  the  speed  of  the 
generator  to  be  changed  at  specific  rates  of  acceleration  or  deceleration. 
Other  test  conditions  may  be  varied  for  particular  generating  systems. 

A  generator  test  is  defined  by  a  specific  set  of  these  generator  system 
operating  conditions. 

The  test  engineer  must  examine  the  output  of  the  generator  during  a 
test  in  order  to  determine  its  performance  in  response  to  the  conditions 
of  the  test.  Measurements  of  the  raw  output  of  the  generator  must  usually 
be  processed  by  various  analysis  techniques  in  order  to  portray  a  clear 
measure  of  the  performance  of  the  test  generator. 

Conventional  facilities  for  conducting  generator  tests  suffer  from 
several  shortcomings.  Control  of  test  conditions  such  as  generator  speed 
and  acceleration  rate  and  load  settings  is  cumbersome.  Techniques  for 
measuring  generator  output  are  often  relatively  inaccurate  and  are  usually 
too  slow  to  accurately  measure  high  speed  transients.  Synchronization  of 
test  actions,  especially  data  acquisition,  is  a  major  problem  common  to 
all  manually  operated  facilities.  In  addition,  most  systems  require 
that  analysis  of  the  test  data  be  performed  at  another  site  which  greatly 
Increases  analysis  turnaround  time. 
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The  Generator  Test  Facility  of  the  Aero  Propulsion  Laboratory  (Figure 
1)  overcomes  these  shortcomings  in  the  testing  of  aircraft  electrical 
generating  systems. 

Computer  control  of  the  test  facility  provides  a  highly  flexible 
mechanism  for  performing  generator  tests.  The  inherent  systematic  opera¬ 
tion  of  a  computer  provides  accurate  synchronization  of  test  actions. 
Computer  control  also  requires  a  minimum  of  personnel  to  perform  generator 
testing. 

A  high  speed  data  acquisition  system  (Figure  2)  provides  an  accurate 
digital  representation  of  the  output  of  the  generator  under  test  conditions. 
Software  resident  in  the  system  computer  performs  the  required  analysis 
computations  on  the  test  data.  These  analysis  results,  which  exhibit  the 
transient  response  of  the  test  generator,  are  then  available  for  display 
to  the  test  engineer.  This  analysis  and  display  scheme  greatly  reduces 
the  turnaround  time  required  for  data  reduction. 

Therefore,  the  Generator  Test  Facility  enables  the  test  engineer  to 
conduct  testing  of  aircraft  electrical  generating  systems  easily  and 
accurately  and  to  analyze  the  performance  exhibited  by  the  generator  in 
response  to  the  test  conditions. 
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SECTION  II 
INTRODUCTION 

This  manual  describes  the  operation  of  the  computer-controlled  test 
capability  of  the  Generator  Test  Facility.  First  discussed  is  the  mechan¬ 
ism  for  creating  the  generator  tesn  sequences  which  will  be  used  to  direct 
operation  of  the  generator  system  during  a  test.  Next  the  manual  explains 
the  mechanisms,  both  software  and  hardware,  which  perform  the  test  actions 
of  a  generator  test  sequence.  And  finally,  the  manual  discusses  operator 
actions  required  during  computer-controlled  testing. 

The  appendices  include  copies  of  all  test  control  software  required 
by  the  computer.  Also  included  in  the  appendices  are  discussions  about 
two  special  subsystems  of  the  Generator  Test  Facility.  These  are  the 
safety  condition  monitoring  system  and  the  drive  stand  controller. 

This  manual  serves  three  major  functions.  First,  it  is  a  user's 
manual  for  the  test  engineer  using  the  Generator  Test  Facility.  Second, 
it  can  be  used  as  a  troubleshooting  manual  for  the  engineer  or  technician 
performing  maintenance.  Third,  it  serves  as  a  training  manual  for  person¬ 
nel  unfamiliar  with  the  test  facility.  As  such,  the  manual  is  written 
in  general  terms  but  with  sufficient  detail  to  serve  the  maintenance  man¬ 
ual  function. 
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SECTION  III 

CREATING  A  GENERATOR  TEST  SEQUENCE 

A  generator  test  sequence  consists  of  a  sequence  of  commands  which 
control  the  test  facility  and  the  generator  system  during  execution  of 
a  test.  The  commands  available  to  the  user  are: 

TM,  which  controls  relative  timing  of  test  actions; 

DS,  which  controls  drive  stand  speed  and  acceleration  rate; 

LB,  which  controls  load  bank  settings; 

AC,  which  controls  data  acquisition;  and 

RC,  which  controls  various  contact  closure  type  functions. 


By  composing  the  appropriate  sequence  of  these  test  commands,  the 
test  engineer  can  specify  a  particular  generator  test  to  be  run. 

The  Fortran  routine,  CR8SYS,  enables  the  user  to  compose  and  catalog 
generator  test  sequences.  A  listing  of  the  code  for  CR8SYS  is  given  in 
Appendix  A.  This  section  of  the  manual  will  give  a  description  of  each  of 
the  commands  available  for  use  in  a  test  sequence.  Also  given  is  an  exam¬ 
ple  of  the  creation  of  a  generator  test  sequence. 


The  creation  of  a  test  sequence  is  performed  at  the  Tektronix  CRT 
terminal.  The  routine  CR8SYS,  prompts  the  user  to  give  the  responses  re¬ 
quired  to  create  the  sequence.  Each  time  the  routine  expects  a  new  test 
sequence  instruction,  it  will  display  the  message,  "ENTER  COMMAND,"  on 
the  CRT  screen.  The  user  will  respond  with  a  command  and  the  parameters 
associated  with  that  command.  The  user  signals  the  end  of  the  test  se¬ 
quence  by  entering  the  command  "ST."  The  routine  will  then  display  the 
newly  created  test  sequence  on  the  ISC  color  display  terminal.  The  user 
must  then  catalog  the  sequence  so  that  it  will  be  available  for  execution. 
Execution  of  a  test  sequence  is  explained  in  the  next  section  of  this 
manual.  The  following  are  the  commands  available  for  use  in  generator 
test  sequences. 
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TM-Time 

This  command  controls  relative  timing  of  events  during  the  test 
sequence.  It  actually  represents  a  delay  until  the  time  specified  in 
its  associated  parameter.  To  specify  a  time  delay,  enter  (via  the  Tek¬ 
tronix  keyboard) 

TM  (time  in  seconds)* 

The  time  value  is  a  positive  floating  point  number  and  must  be  greater 
than  any  previous  time  value  used  since  the  beginning  of  the  test 
sequence. 

As  with  all  other  commands  requiring  parameters,  the  TM  command 
can  be  entered  in  two  steps.  If  the  user  enters  only  "TM,"  the  routine 
will  prompt  the  user  with  the  message  "TIME  (SEC)."  The  user  then  must 
enter  the  time  in  seconds  of  the  delay  required.  This  two-step  entry 
is  useful  if  the  user  is  not  familiar  with  the  format  of  the  parameters 
for  the  particular  command  chosen. 

DS-Drive  Stand  Speed  and  Acceleration  Rate 

This  command  is  used  to  select  drive  stand  speed  and  acceleration/ 
deceleration  rate.  The  speed  must  be  a  positive  integer  between  0  and 
10,000  rpm.  The  acceleration  rate  is  a  positive  integer  representing 
the  rate  in  100's  of  rpm  per  second  at  which  the  drive  stand  will  accel¬ 
erate  from  the  previously  requested  speed  (zero  if  no  previous  DS  command 
exists  in  this  sequence)  to  the  speed  requested  by  the  current  DS  command. 
Therefore  if  the  previous  speed  is  greater  than  the  requested  speed,  the 
rate  actually  represents  deceleration. 

The  format  of  the  command  is: 

DS  (drive  stand#)  (speed)  (rate)** 

All  parameters  must  be  positive  integers  and  are  entered  in  free  format 
with  blanks  or  commas  separating  each  one. 

Again,  if  the  user  enters  only  "DS,"  the  routine  will  respond  with 
the  prompt  message,  "DS#,  SPEED,  RATE  (31)."  The  user  must  then  enter 
the  appropriate  parameters. 

*  All  command  entries  must  be  completed  by  pressing  the  RETURN  key. 

**  3  is  the  minimum  rate  accepted  by  the  routine,  and  0  or  10  directs  the 
drive  stands  to  accelerate  at  the  maximum  rate  of  1000  rpm/sec. 
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LB-Load  Bank  Settings 

This  command  Is  used  to  select  the  setting  of  the  load  banks.  Load 
banks  numbered  1,  2,  and  3  can  be  controlled.  A  load  setting,  both  resis¬ 
tive  (KW)  and  reactive  (KVAR),  is  selected  for  each  of  three  phases.  The 
total  load  requested  must  not  exceed  the  maximum  available  from  the  individ¬ 
ual  load  bank.  This  would  be  80  KW  per  phase  and  60  KVAR  per  phase  on 
load  banks  1  or  2,  and  40  KW  per  phase  and  30  KVAR  per  phase  on  load  bank 
3. 

The  format  of  the  command  is: 

LB  (load  bank#)  (4>1  KW)  (d>2KW)  (4>3KW)  (<f>l  KVAR)  (<fr2KVAR)  (<t>3KVAR) 

All  parameters  must  be  positive  integers  entered  in  free  format. 

If  the  user  enters  only  "LB,"  the  routine  issues  the  prompt  message, 
"LB#,  3*KW,  3*KVAR  (71)."  The  user  must  then  enter  the  appropriate  para¬ 
meters. 

AC-Acquire  Data 

This  command  causes  data  to  be  acquired  from  the  data  acquisition 
system  for  the  amount  of  time  specified  in  the  parameter  and  stored  on 
a  dedicated  magnetic  disk  file  (file  30).  Time  spans  of  up  to  25  seconds 
of  data  can  be  stored,  but  the  analysis  time  required  for  this  amount  of 
data  makes  it  practical  to  store  time  spans  of  1  to  5  seconds  of  data. 

The  format  of  the  command  is: 

AC  (duration  in  seconds) 

The  duration  value  is  a  positive  floating  point  number.  If  the  user 
enters  only  "AC,"  the  routine  prompts  with  the  message,  "DURATION  OF 
ACQUISITION  (SEC)."  Note  that  this  command  just  initiates  data  acqui¬ 
sition  and  then  proceeds  to  the  next  command.  It  does  not  wait  for  data 
acquisition  to  be  completed  before  proceeding. 
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RC-Relay  Contact  Closure 

This  command  is  used  to  control  opening  or  closing  of  contacts  which 
are  part  of  the  input/output  Interface  subsystem  of  the  Modcomp  minicom¬ 
puter.  These  contacts  can  be  used  to  control  external  relays  used  for 
such  generator  test  functions  as  closing  a  bus  contactor,  applying  genera¬ 
tor  field  excitation,  and  the  like.  The  contacts  can  accommodate  loads 
of  up  to  10  VA  with  a  maximum  voltage  of  100  V. 

The  user  can  control  up  to  13  contacts  with  this  command.  The  de¬ 
sired  state  of  the  contact  is  specified  as  "0"  or  "1."  A  "0"  opens  the 
contact,  and  a  "1"  closes  it. 

The  format  of  the  command  is: 

RC  (contact  number)  (state) 

The  parameters  are  positive  integers  entered  in  free  format.  If  the  user 
enters  only  "RC,"  the  routine  will  prompt  with  the  message,  "CONTACT#, 

1/0  (21)."  The  user  must  then  enter  the  required  parameters. 

There  are  also  several  commands  to  the  routine  CR8SYS  which  are  used  to 
maintain  and  catalog  test  sequences.  These  commands  are  explained  below. 

ST-Stop  Sequence 

This  command  signals  the  end  of  the  test  sequence  being  created. 
When  the  user  responds  with  "ST,"  the  routine  displays  the  newly 
created  test  sequence  on  the  ISC  color  display  terminal.  If  correct, 
the  sequence  must  be  catalogued  so  that  it  will  be  available  to  be 
executed.  If  incorrect,  the  sequence  must  be  reentered. 

CA- Catalog  Sequence 

This  command  causes  a  test  sequence  to  be  stored  on  a  library 
file  of  the  magnetic  disk  (file  31).  The  test  sequences  are  stored 
in  a  format  such  that  the  RD  command  can  access  them.  There  is 
storage  available  for  sequences  between  0  and  599  inclusive. 
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The  format  for  this  command  is  "CA."  The  routine  will  display 
the  test  sequence  being  stored  on  the  ISC  terminal  and  ask  for  "TEST 
SEQUENCE  NUMBER,  15."  The  user  enters  the  number  at  which  he  wishes 
the  sequence  to  be  catalogued.  Any  sequence  previously  catalogued 
at  the  same  number  will  be  overwritten.  The  sequence  number  is  used 
for  recalling  the  test  sequence  with  the  RD  command. 

RD-Read  Test  Sequence 

This  command  allows  the  user  to  recall  a  test  sequence  from  the 
magnetic  disk  (file  31).  The  sequence  number  requested  must  have 
been  previously  catalogued  using  the  CA  command. 

The  format  of  this  command  is: 

RD  (test  sequence  number) 

If  the  user  enters  only  "RD,"  the  routine  will  prompt  with  the  mes¬ 
sage,  "ENTER  TEST  SEQUENCE  NUMBER." 

After  the  sequence  number  is  entered,  the  routine  will  display 
the  selected  sequence  on  the  ISC  terminal.  If  the  test  sequence 
displayed  has  no  instructions,  this  means  that  no  sequence  has  been 
catalogued  at  the  requested  number. 

SA-Read  Same  Sequence 

This  command  causes  the  most  recent  sequence  read  or  created 
to  be  displayed.  The  user  chooses  this  command  by  typing  "SA." 

Following  is  a  demonstration  of  the  creation  and  cataloguing  of  a 
generator  test  sequence.  All  prompt  messages  produced  by  the  routine 
and  all  responses  required  by  the  user  are  given. 

This  particular  test  sequence  performs  application  of  full  load  to 
a  150  KVA  generator  at  base  speed.  The  details  of  how  these  functions 
are  accomplished  during  execution  are  given  in  the  next  section  of  this 
manual . 

To  create  and  store  the  test  sequence,  the  following  steps  are 
required: 

1.  User  types  on  the  Tektronix  keyboard 
JOB 

EXE  CR8  LM 


10 


AFWAL-TR-80-2033 


2.  The  display  and  responses  Illustrated  in  Figure  3  are  via  the 
Tektronix  CRT  terminal.  Prompt  messages  issued  by  the  routine  are  in 
all  caps.  Responses  entered  by  the  user  are  in  brackets.  A  two-part 
entry  of  the  AC  command  is  included.  Note:  All  responses  by  the  user 
must  be  completed  by  striking  the  RETURN  key. 

3.  At  this  point,  the  routine  will  produce  on  the  ISC  screen  a 
display  of  the  test  sequence  just  created.  Figure  4  illustrates  that 
display. 

4.  The  user  must  now  catalog  this  sequence  for  later  use.  The 
following  is  the  series  of  commands  needed  to  do  so. 

ENTER  COMMAND 

[CA] 

The  routine  will  again  display  the  sequence  on  the  ISC  screen  and  ask: 

TEST  SEQUENCE  NUMBER,  15 

[10] 

ENTER  COMMAND 

$$  (This  exits  the  CR8SYS  routine.) 

The  newly  created  sequence  is  now  catalogued  as  sequence  number  10. 

This  section  has  demonstrated  how  to  create  and  maintain  generator 
test  sequences  using  the  routine  CR8SYS.  This  section  may  be  used  as  a 
user's  manual  and  as  an  instructional  guide  for  new  personnel.  Any  modifi¬ 
cation  to  the  sequence  creation  function  of  the  routine  CR8SYS  will  re¬ 
quire  a  detailed  examination  of  the  Fortran  code  contained  in  Appendix  A. 
The  following  section  of  this  manual  discusses  the  actual  execution  of 
a  generator  test  sequence. 
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Figure  3  -  Test  Sequence  Creation  Commands 
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SECTION  IV 

EXECUTING  A  GENERATOR  TEST  SEQUENCE 

The  Fortran  routine  RUNSYS  directs  the  test  facility  during  execution 
of  a  generator  test  sequence.  A  copy  of  the  code  for  RUNSYS  is  included 
in  Appendix  B.  The  routine  first  allows  the  user  to  access  a  test  se¬ 
quence  which  was  previously  created  and  catalogued  using  the  routine 
CR8SYS.  The  commands  required  to  initiate  execution  of  the  routine  RUNSYS 
are  as  follows:  (via  the  Tektronix  terminal). 

[JOB] 

[EXE  RUN  LM] 

ENTER  COMMAND 

[RD  10] 

The  routine  will  display  the  requested  test  sequence  (in  this  example, 
sequence  10)  on  the  ISC  terminal  and  ask, 

READY  TO  RUN  THIS  SEQUENCE?  (Y  OR  N) 

Section  V  will  discuss  actions  required  by  the  operator  during  execution 
of  a  test  sequence. 

The  minicomputer  directs  execution  of  a  generator  test  by  causing 
appropriate  actions  to  occur  at  specified  times.  These  actions  will  be 
referred  to  as  test  control  functions.  Test  control  functions  include: 
control  of  load  bank  settings,  control  of  drive  speed  and  acceleration 
rate,  control  of  test  data  acquisition,  and  control  of  a  set  of  relay 
contacts.  A  generator  test  is  defined  by  a  timed  sequence  for  perform¬ 
ing  the  test  control  functions  required  to  accomplish  the  test.  This 
timed  sequence,  referred  to  as  a  generator  test  sequence,  is  created 
using  the  test  sequence  creation  function  of  the  routine  CR8SYS.  The 
procedure  for  creating  test  sequences  is  given  In  Section  III  of  this 
manual . 


In  order  to  cause  the  test  defined  in  the  test  sequence  to  occur, 
a  scheme  must  be  devised  which  translates  each  command  in  the  sequence 
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into  an  electrical  output  which  performs  the  test  function  specified  by 
the  command.  Generally  this  scheme  is  as  follows:  the  Fortran  routine 
RUNSYS  steps  through  each  command  in  the  test  sequence.  For  those  func¬ 
tions  which  can  be  performed  solely  by  software,  RUNSYS  calls  the  routine 
which  implements  the  function.  For  those  functions  which  are  performed 
by  software  directing  hardware  interfaces,  RUNSYS  calls  the  routine  which 
initiates  action  to  perform  the  function.  In  some  cases,  several  levels 
of  control  routines  must  be  executed  before  the  electrical  signal  is 
output  to  perform  the  function. 

The  test  control  functions  used  in  generator  testing  are: 

(1 )  Timing  control 

(2)  Drive  stand  control 

(3)  Load  bank  control 

(4)  Data  acquisition  control 

(5)  Relay  contact  control 

Following  is  a  description  of  each  function  and  the  means  by  which  this 
function  is  performed: 

1 .  Timing  control 

In  order  to  maintain  proper  sequencing  of  test  actions  during  a 
generator  test,  the  relative  timing  of  the  test  control  functions  must  be 
controlled.  As  explained  in  Section  III,  the  TM  command  is  used  in  the 
test  sequence  to  specify  this  timing. 

During  test  sequence  execution,  RUNSYS  uses  the  subroutine  TWAIT 
to  provide  timing  control.  A  copy  of  TWAIT  can  be  found  in  the  code  of 
RUNSYS  in  Appendix  B. 

At  the  beginning  of  execution  of  a  test  sequence,  TWAIT  is 
called  to  obtain  a  beginning  time,  TBEGIN,  from  the  minicomputer  inter¬ 
nal  timer.  As  TM  commands  are  encountered  during  a  test  sequence. 
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TWAIT  is  called  to  provide  a  delay  until  the  time  specified  in  the  com¬ 
mand.  By  inserting  TM  commands  just  prior  to  other  test  control  commands 
in  a  test  sequence,  the  operator  can  specify  the  relative  times  at  which 
events  of  the  test  occur. 

2.  Drive  stand  control 

During  generator  testing,  it  is  necessary  to  control  the  drive 
stand,  which  provides  rotation  to  the  generator,  at  a  known  speed.  Also, 
some  tests  require  the  generator  to  be  accelerated  or  decelerated  to  a 
new  speed  at  a  known  rate.  The  drive  stand  control  function  provides 
this  control. 

The  DS  command  is  used  in  the  test  sequence  to  specify  that  one  of 
the  three  drive  stands  be  accelerated/decelerated  to  a  specified  speed 
at  a  specified  rate.  Actual  control  of  the  drive  stand  is  accomplished 
by  providing  a  DC  voltage  to  the  drive  stand  power  supply.  A  voltage 
of  0-10V  DC  input  to  the  power  supply  produces  a  speed  of  0-10,000  rpm 
on  the  drive  stand  output  pad.  To  control  this  speed,  then,  a  DS  command 
must  be  translated  into  the  appropriate  DC  voltage.  Control  of  accelera¬ 
tion  rate  is  accomplished  by  outputting  this  DC  voltage  in  small  steps 
at  an  appropriate  rate.  For  example,  to  accelerate  from  1,000  rpm  to 
2,000  rpm  at  2,000  rpm/second,  a  command  to  increase  the  speed  by  20 
rpm  is  issued  every  10  msec  for  0.5  seconds. 

At  this  point,  it  is  instructive  to  discuss  the  form  in  which  cer¬ 
tain  control  routines  exist  in  the  minicomputer.  The  routine  RUNSYS  is 
what  is  called  a  batch  task.  During  execution  of  a  test  sequence,  RUNSYS 
is  executed  by  the  minicomputer  central  processing  unit  (CPU)  from  its 
central  memory.  Certain  test  control  functions,  such  as  load  bank  con¬ 
trol  and  relay  contact  control,  can  be  performed  by  RUNSYS  directly. 
However,  other  functions,  namely,  drive  stand  control  and  data  acquisi¬ 
tion  control,  are  special  in  nature.  These  functions  are  iterative  and 
must  be  performed  with  precise  timing.  For  these  reasons,  the  routines 
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which  implement  these  functions  exist  as  separate  tasks.  These  tasks, 
named  DSC  for  drive  stand  control  and  DAC  for  data  acquisition  control, 
share  operating  time  in  the  minicomputer  with  the  routine  RUNSYS.  It  is 
useful  to  think  of  the  DSC  and  DAC  tasks  as  executing  all  the  time.  It 
should  be  clear  that  whenever  a  generator  test  is  not  being  executed,  the 
DSC  task  must  output  signals  which  keep  the  drive  stands  at  zero  speed 
and  the  DAC  task  must  refrain  from  acquiring  data. 

The  routine  RUNSYS,  when  action  is  required  from  either  of  these 
tasks,  collects  the  parameters  from  the  appropriate  test  command,  makes 
this  data  available  to  the  task,  and  then  signals  the  task  to  act  on  this 
data. 

Explanation  of  how  RUNSYS  and  the  DSC  task  relate  is  now  presented. 

A  copy  of  the  code  for  the  DSC  task  is  included  in  Appendix  C.  Discussion 
of  the  DAC  task  will  be  presented  later  in  the  appropriate  section. 

When  RUNSYS  encounters  a  DS  command,  it  stores  the  drive  stand  num¬ 
ber,  requested  speed,  and  requested  rate  in  a  buffer.  It  then  sets  a 
flag  (DSC  flag)  which  informs  the  DSC  task  that  a  valid  command  is  avail¬ 
able. 

The  DSC  task  has  been  executing  a  loop  of  instructions  which  output 
a  null  command  to  keep  the  drive  stands  at  zero  speed.  On  each  iteration 
of  this  loop,  the  DSC  flag  is  checked  to  see  if  a  new  command  is  available 
When  the  DSC  flag  is  found  to  be  set,  the  DSC  task  first  resets  the  flag 
so  that  it  will  know  when  a  new  command  has  been  issued.  Then  it  collects 
the  command  parameters  from  the  buffer,  scales  and  packs  the  command,  and 
outputs  the  command  to  the  drive  stand  controller.  The  DSC  task  continues 
to  output  this  command  until  RUNSYS  issues  a  new  command. 

As  indicated  above,  the  DSC  task  supplies  its  output  to  the  drive 
stand  controller.  The  DSC  task,  in  a  sense,  interprets  drive  stand  com¬ 
mands  and  passes  these  interpretations  along  to  the  controller. 
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The  drive  stand  controller  is  a  microprocessor  based  interface  which 
implements  drive  stand  commands.  A  digital-to-analog  converter  produces 
the  DC  voltage  required  by  the  drive  stand  power  supply.  The  controller 
also  performs  the  stepping  increase/decrease  described  earlier  to  achieve 
acceleration  rate  control.  A  full  description  of  the  drive  stand  control¬ 
ler  is  given  in  Appendix  E.  By  employing  the  controller  to  provide  actual 
control  of  the  drive  stand,  the  DSC  task  must  only  initiate  the  action, 
thus  leaving  CPU  time  for  RUNSYS  and  the  DAC  task. 

The  drive  stand  controller  and  the  DSC  task  operate  in  a  handshaking 
mode.  If  either  device  fails  to  respond  correctly,  the  controller  is  de¬ 
signed  to  bring  the  drive  stands  to  zero  speed.  Thus,  if  communication 
between  the  mini-computer  and  the  drive  stand  controller  is  broken  or  if 
the  minicomputer  malfunctions,  the  drive  stands  are  shut  down. 

3.  Load  bank  control 

The  minicomputer  controls  the  load  bank  settings  during  genera¬ 
tor  test  execution  by  controlling  a  set  of  contacts  in  its  input/output 
interface  subsystem  (I/OIS).  There  are  15  contacts  for  each  phase  of 
each  load  bank.  Each  contact,  when  closed,  introduces  a  particular  re¬ 
sistive  or  reactive  load  into  the  load  circuit  of  the  generator.  Resis¬ 
tive  loads  up  to  80  KW/phase  and  inductive  loads  up  60  KVAR/phase  are 
available  from  loads  banks  #1  and  #2.  Loads  up  to  40  KW/phase  and  30 
KVAR/phase  are  available  from  load  bank  #3. 

The  computer  control  of  the  load  bank  settings  parallels  the 
manual  control  available  via  switch  settings  located  on  the  load  bank 
control  panel.  Therefore  during  execution  of  a  generator  test,  these 
manual  controls  must  be  set  to  zero.  Refer  to  the  circuit  drawings  of 
the  load  bank  control  panel  for  physical  location  of  these  relays. 


During  the  creation  of  a  test  sequence,  the  test  operator  speci¬ 
fied  load  bank  settings  with  the  LB  command.  During  execution  of  the 
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test  sequence,  the  subroutine  SETLB  implements  this  control.  SETLB  exam¬ 
ines  the  LB  command  parameters,  sets  up  a  control  word  which  will  close 
the  appropriate  relays  to  achieve  the  requested  load  settings,  and  then 
outputs  this  control  word  to  the  relay  control  system  of  the  minicomputer. 

A  listing  of  SETLB  is  included  in  the  code  of  the  routine  RUNSYS  in  Appen¬ 
dix  B. 

4.  Data  acquisition  control 

The  data  acquired  during  a  generator  test  consists  of  signals 
proportional  to  the  3-phase  voltages  and  the  3-phase  currents  of  the 
generator  output.  Data  acquisition  electronics  convert  these  6  analog 
signals  to  12-bit  digital  representations.  These  binary  words  are  multi¬ 
plexed  into  data  blocks  which  serve  as  input  to  the  minicomputer  through 
its  4805  data  terminal.  Each  data  block  consists  of  10  binary  words: 
a  null  word,  a  timing  word,  6  data  words,  and  2  data  integrity  words 
(parity  and  checksum). 

In  the  creation  of  a  test  sequence,  the  user  specifies  the  begin¬ 
ning  time  and  duration  of  the  data  acquisition  with  the  TM  and  AC  commands. 
For  instance,  if  the  user  were  interested  in  a  load  application  occurring 
25  seconds  into  the  test,  he  would  specify  at  TM  24.8  seconds  an  AC  com¬ 
mand  of  duration  1.5  seconds. 

During  test  execution  when  the  routine  RUNSYS  encounters  an  AC 
command,  it  calls  the  subroutine  ACQUIRE.  Refer  to  the  listing  of  RUNSYS 
in  Appendix  B  for  a  copy  of  the  code  of  ACQUIRE.  The  subroutine  ACQUIRE 
first  determines  how  many  magnetic  disk  tracks  will  be  required  to  store 
data  for  the  duration  requested.  It  then  prepares  buffer  areas  in  cen¬ 
tral  memory  in  which  the  data  will  be  stored  prior  to  being  written  to 
the  disk.  ACQUIRE  also  prepares  data  structures  known  as  user  file 
tables  (UFT's)  which  are  required  in  order  to  write  to  the  disk.  It 
then  loads  pointers  to  this  information  in  a  task  communication  area 
and  resumes  the  data  acquisition  task  (DAC)  which  has  been  in  a  hold 
state. 
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The  DAC  task  performs  the  actual  input  and  storage  of  generator 
test  data.  A  copy  of  the  code  for  the  DAC  task  is  included  as  Appendix 
D.  In  order  to  input  data  and  write  this  data  to  the  disk  at  a  high  rate, 
the  DAC  task  employs  a  circular  buffering  technique.  Nine  temporary  buf¬ 
fers  in  central  memory  are  circularly  filled  with  data  incoming  from  the 
4805.  These  are  the  buffers  prepared  by  ACQUIRE.  The  transfer  of  data 
from  the  4805  to  these  buffers  is  controlled  by  the  direct  memory  proces¬ 
sor  ( DMP)  of  the  minicomputer.  The  central  processor  of  the  minicomputer 
is  then  directed  by  the  DAC  task  to  circularly  output  these  buffers  to 
the  disk.  A  lockout  scheme  prevents  overwriting  a  buffer  before  it  has 
been  written  to  disk  or  writing  a  buffer  to  disk  before  it  is  full.  This 
lockout  scheme  reports  to  the  user  any  attempted  errors  of  this  sort. 

Nine  buffers  allow  the  data  acquisition  system  to  operate  at 
approximately  9,200  hertz.  This  provides  accurate  sampling  of  up  to  4,600 
hertz  input.  A  higher  sampling  rate  or  a  change  in  the  data  word  format 
will  require  additional  buffering  or  a  different  buffering  technique. 

5.  Relay  contact  control 

The  input/output  interface  subsystem  (I/0IS)  of  the  minicomputer 
contains  relay  contacts  controllable  by  software.  The  relay  contact  con¬ 
trol  function  enables  the  user  to  specify  the  state  (on  or  off)  of  any  of 
13  of  these  contacts.  Past  test  sequences  have  used  these  contacts  to 
control  such  test  actions  as  CSD  disconnects,  generator  excitation  vol¬ 
tage,  etc. 

The  RC  command  is  used  in  test  sequence  creation  to  specify  the 
state  of  a  particular  relay.  During  test  execution  when  RUNSYS  encounters 
an  RC  command,  it  calls  the  subroutine  SETRC.  The  code  for  SETRC  can  be 
found  in  the  listing  of  RUNSYS  in  Appendix  B.  SETRC  sets  up  a  control 
word  to  properly  set  the  requested  contact  and  outputs  it  to  the  I/0IS. 

This  concludes  the  discussion  of  the  test  control  functions 
available  for  generator  testing.  The  next  section  of  this  manual  discusses 
operator  actions  required  during  execution  of  a  generator  test. 


20 


AFWAL-TR-80-2033 


test  sequence,  the  subroutine  SETLB  implements  this  control.  SETLB  exam¬ 
ines  the  LB  command  parameters,  sets  up  a  control  word  which  will  close 
the  appropriate  relays  to  achieve  the  requested  load  settings,  and  then 
outputs  this  control  word  to  the  relay  control  system  of  the  minicomputer. 
A  listing  of  SETLB  is  included  in  the  code  of  the  routine  RUNSYS  in  Appen¬ 
dix  B. 

4.  Data  acquisition  control 

The  data  acquired  during  a  generator  test  consists  of  signals 
proportional  to  the  3-phase  voltages  and  the  3-phase  currents  of  the 
generator  output.  Data  acquisition  electronics  convert  these  6  analog 
signals  to  12-bit  digital  representations.  These  binary  words  are  multi¬ 
plexed  into  data  blocks  which  serve  as  input  to  the  minicomputer  through 
its  4805  data  terminal.  Each  data  block  consists  of  10  binary  words: 
a  null  word,  a  timing  word,  6  data  words,  and  2  data  integrity  words 
(parity  and  checksum). 

In  the  creation  of  a  test  sequence,  the  user  specifies  the  begin¬ 
ning  time  and  duration  of  the  data  acquisition  with  the  TM  and  AC  commands. 
For  instance,  if  the  user  were  interested  in  a  load  application  occurring 
25  seconds  into  the  test,  he  would  specify  at  TM  24.8  seconds  an  AC  com¬ 
mand  of  duration  1.5  seconds. 

During  test  execution  when  the  routine  RUNSYS  encounters  an  AC 
command,  it  calls  the  subroutine  ACQUIRE.  Refer  to  the  listing  of  RUNSYS 
in  Appendix  B  for  a  copy  of  the  code  of  ACQUIRE.  The  subroutine  ACQUIRE 
first  determines  how  many  magnetic  disk  tracks  will  be  required  to  store 
data  for  the  duration  requested.  It  then  prepares  buffer  areas  in  cen¬ 
tral  memory  in  which  the  data  will  be  stored  prior  to  being  written  to 
the  disk.  ACQUIRE  also  prepares  data  structures  known  as  user  file 
tables  (UFT's)  which  are  required  in  order  to  write  to  the  disk.  It 
then  loads  pointers  to  this  information  in  a  task  communication  area 
and  resumes  the  data  acquisition  task  (DAC)  which  has  been  in  a  hold 
state. 
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SECTION  V 

TEST  OPERATOR  ACTIONS 

Computer-controlled  testing  with  the  Generator  Test  Facility  re¬ 
quires  very  little  action  by  the  test  operator.  Basically  the  test  opera¬ 
tor  first  ensures  that  the  test  facility  and  generator  system  are  safe 
for  operation;  then  the  operator  initiates  the  RUNSYS  routine  which  will 
direct  execution  of  the  test.  As  detailed  in  Section  IV,  the  steps  re¬ 
quired  to  initiate  execution  of  RUNSYS  are  as  follows:  (via  the  Tektronix 
terminal ) 

[JOB] 

[EXE  RUN  LM] 

ENTER  COMMAND 

[RD  n],  where  n  is  the  test  sequence  number 

The  chosen  sequence  is  displayed  on  the  ISC  terminal  and  the  routine  asks, 

READY  TO  RUN  THIS  SEQUENCE?  (Y  OR  N) 

To  initiate  test  execution,  the  user  then  strikes  the  "Y"  and  RETURN  keys 
on  the  Tektronix  keyboard.  The  routine  RUNSYS  then  directs  the  test  con¬ 
trol  actions  as  described  in  the  previous  section. 

Actions  required  by  the  test  operator  during  test  sequence  execution 
are  of  two  basic  categories.  These  are  normal  operation  and  abnormal 
operation  of  the  test  execution. 

(1)  Normal  operation 

Under  normal  operation,  the  operator  performs  the  steps  described 
above  to  initiate  the  test.  The  operator  should  continue  to  visually  moni¬ 
tor  the  generator  system  during  the  test.  If  any  unsafe  condition  arises, 
the  operator  should  take  actions  to  shut  down  the  test. 

In  addition,  the  operator  should  note  whether  test  actions  (con¬ 
tact  closures,  load  application  and  removal,  etc.)  occur  at  the  expected 
time  into  the  test.  If  these  phenomena  do  not  occur  at  approximately 
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the  correct  time,  the  test  operator  should  take  test  shutdown  actions 
since  this  is  an  indication  that  computer  control  of  the  test  is  not 
functioning  properly.  In  order  to  monitor  timing  of  the  test,  the  test 
facility  has  a  digital  sequence  timer.  This  timer  should  be  started 
when  execution  of  a  test  sequence  is  initiated. 

Thus,  under  normal  operation,  the  test  operator  should:  (1)  check 
the  displayed  test  sequence  for  correctness,  (2)  visually  inspect  the 
generator  and  test  area  for  safe  operating  conditions,  (3)  simultaneously 
start  the  digital  timer  and  enter  a  "Y"  (followed  by  RETURN)  on  the  Tek¬ 
tronix  keyboard,  and  then,  (4)  continue  visual  monitoring  of  the  generator 
setup  while  checking  that  test  phenomena  occur  at  the  proper  time. 

(2)  Abnormal  operation 

The  list  of  possible  malfunctions  which  could  occur  to  cause 
abnormal  operation  of  a  generator  test  is  almost  limitless.  The  follow¬ 
ing  discussion  will  address  several  situations  in  which  the  generator 
test  should  be  shut  down.  This  shutdown  action  is  required  to  prevent 
damage  to  the  generator  under  test  and  possibly  to  the  test  facility  or 
personnel . 

Several  types  of  malfunctions  likely  to  occur  during  a  genera¬ 
tor  test  are  automatically  monitored  by  the  minicomputer.  This  automatic 
monitoring  is  achieved  in  the  following  manner.  First,  a  transducer 
develops  a  voltage  signal  proportional  to  the  condition  being  monitored. 

In  some  cases,  this  voltage  signal  must  be  rectified,  amplified,  filtered, 
etc.  to  make  it  acceptable  as  input  to  the  minicomputer.  The  conditional 
signal  is  then  input  to  the  mini-computer  via  its  wide  range  analog  input 
system.  Then  software  routines  check  this  data  to  determine  if  any  of 
the  signals  are  out  of  limit.  The  out-of-limit  bounds  are  preselected 
for  the  particular  condition  being  monitored  and  the  particular  test 
sequence.  For  example,  a  phase  current  of  600  amps  would  be  an  over¬ 
current  condition  under  rated  load  testing  of  a  generator,  whereas  the 
same  current  might  be  expected  during  fault  testing. 
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If  an  out-of-limit  condition  is  sensed,  the  minicomputer  takes 
shutdown  action  automatically.  A  full  discussion  of  the  safety  condition 
monitoring  system  is  given  in  Appendix  F.  Also  discussed  in  Appendix  F 
is  a  safety  monitoring  routine  available  during  manual  operation  of  the 
test  facility. 

In  some  instances,  the  generator  test  should  be  shut  down  even 
if  the  safety  monitoring  system  is  not  activated.  These  instances  occur 
when  the  test  operator  observes  any  condition  which  he  considers  unsafe. 

For  instance,  suppose  a  test  sequence  specifies  that  the  drive  stand  be 
accelerated  to  4,600  rpm.  During  execution  of  the  sequence,  the  operator 
observes  the  drive  stand  speed  meter  on  the  drive  stand  control  console 
exceeding  this  speed.  This  indicates  that  computer  control  of  the  drive 
stands  is  not  functioning  properly.  The  operator  should  manually  deceler¬ 
ate  the  drive.  This  is  done  by  switching  the  control  mode  switch  located 
on  the  drive  stand  control  console  to  MANUAL  and  turning  the  DC  motor 
lever  to  the  READY  position  momentarily. 

Another  situation  requiring  manual  shutdown  is  as  follows.  A 
test  sequence  specifies  that  a  contact  which  is  used  to  excite  the  test 
generator  is  to  be  closed  20  seconds  after  test  initiation.  During  execu¬ 
tion  of  the  sequence,  excitation  does  not  occur.  This  situation  in  itself 
poses  no  danger,  but  it  is  evidence  that  the  automatic  sequencing  of  the 
test  is  not  operating  properly  and  more  severe  failures  may  occur.  At 
the  very  least,  without  generator  excitation,  the  data  acquired  during 
the  test  would  be  useless.  Therefore,  the  operator  should  manually  shut 
down  the  test. 

Following  is  a  list  of  the  actions  the  test  operator  can  take 
in  shutting  down  a  generator  test. 

1.  In  the  event  of  a  catastropic  failure  test  operator  should  press 

in  which  power  should  be  removed  from  the  the  red  MASTER  EMERGENCY  TRIP 

drive  stand  as  quickly  as  possible,  button  on  the  center  drive 

stand  control  console 
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2.  In  the  event  the  drive  stand  Is  required 
to  coast  to  a  halt  and  assuming  the  drive 
motor  electronics  are  functioning  properly. 


test  operator  should  switch 
control  mode  switch  to  MANUAL 
and  turn  the  DC  MOTOR  lever 
to  the  READY  position. 


3.  To  remove  all  electrical  load  from 
the  generator. 


test  operator  should  set  the 
master  load  switch  on  the  load 
bank  control  console  to  OFF. 


This  concludes  the  discussion  of  operator  actions  during  a  computer- 
controlled  generator  test.  The  following  section  of  this  manual  discusses 
actions  required  at  the  conclusion  of  a  generator  test  sequence. 


i 

1 
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SECTION  VI 

CONCLUSION  OF  A  GENERATOR  TEST  SEQUENCE 

Every  generator  test  sequence  must  conclude  by  restoring  the  computer 
controlled  functions  of  the  test  facility  to  their  original  states.  For 
instance,  all  the  load  contacts  in  the  load  bank  should  be  opened,  the 
drive  stands  should  be  at  zero  speed,  and  all  external  relay  contacts 
should  be  opened.  The  user  must  ensure  that  commands  to  perform  these 
actions  are  included  in  the  generator  test  sequence. 


Thus,  normal  execution  of  a  test  sequence  will  reset  all  test  func¬ 
tions.  If  the  test  is  abnormally  halted,  either  by  the  safety  monitor¬ 
ing  system  or  manually,  the  RUNSYS  routine  must  be  allowed  to  complete 
execution  of  the  test  sequence  in  order  that  all  resetting  is  accomplished 


When  the  test  has  completed,  the  RUNSYS  routine  again  issues  the 
message,  "ENTER  COMMAND."  At  this  point,  the  test  data  which  was  ac¬ 
quired  during  the  test  is  stored  on  a  dedicated  file  of  the  magnetic  disk. 
By  entering  the  following  commands,  the  user  initiates  the  data  analysis 
and  display  routines  stored  in  the  minicomputer. 

[EXE] 

ENTER  PROGRAM  NAME;  (A3) 

[ANL] 

These  routines  compute  generator  performance  parameters  and  display  the 
results  to  the  test  engineer  via  the  Tektronix  terminal.  Details  of  the 
analysis  procedures  and  use  of  the  display  routines  are  the  subject  of  a 
separate  instruction  manual. 
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1  PROGRAM  CR9STS 

2  C 

3  C  THIS  ROUTINE  ENABLES  THE  USER  TO  MAINTAIN  GENERATOR 

4  C  TEST  SEQUENCES. 

5  C  MAINTENANCE  INCLUDES  INITIAL  CREATION,  CATALOGUING,  AND  HEADING 

6  C  ALREADY  CREATED  SEQUENCES. 

7  C 

e  C  FILE/DEVICE  ASSIGNMENTS  REQUIRED  FOR  THIS  ROUTINE: 

9  C 

10  C  8  =  TKO  (TEKTRONIX  OUTPUT)  PROMPT  MESSAGES  TO  USER 

11  C  7  =  TKI  (TEKTRONIX  INPUT)  USER  RESPONSES 

12  C  6  =  A02  (ISC  OUTPUT)  SEQUENCE  DISPLAT 

13  C  31  =  TSL  (DISK  PARTITION)  TEST  SEQUENCE  "LIBRART'' 

14  C 

15  C 

16  C******************** 

17  c  *  *  *  CATALOGUED  ON  LM  12,21,79  ******** 

19  C 

20  C  EXTEPNAL  SUBROUTINES  REQUIRED: 

21  C 

22  C  NAME  LOCATION 

23  C 

24  C  2.  READ  LB 

25  C  3.  WRITE  LB 

26  C 

27  C 

28  INTEGER  COMMAND ( 512) , R< 2' ,UFT (6 1 , TNUM ,LINE(72 ) 

29  EQUIVALENCE  (T.P) 

30  C  NOTE:  R  IS  AN  INTEGER  ARRAY  WHICH  IS  EQUIVALENT  TO  THE  REAL 

31  C  VARIABLE  T. 

32  C 

33  C  INITIALIZE  MAXIMUM  NUMBER  OF  COMMANDS  TO  BE  ALLOWED  IN  A  TEST 

34  C  SEQUENCE 

35  DATA  MAXCOM/51 2/ 

36  C  SET  UP  UFT  FOR  WRITING/READING  SEQUENCE  TO  DISK 

37  C  NOTE:  #BFE0  =  031  =  TSL 

3e  DATA  UFT/0,ZPFE0,ZA400,3*0/ 

39  C 

40  C  DESCRIPTION  OF  TEST  SET-UP  COMMANDS 

41  C 

42  C  TM  -  TIME  DELAT 

43  C  DS  -  DRIVE  STAND  CONTROL 

44  C  LB  -  LOAD  BANK  CONTROL 

45  C  RC  -  RELAI  CONTACT  CONTROL 

46  C  AC  -  DATA  ACQUISITION  CONTROL 

47  C  ST  -  SPECIFIES  END  OF  TEST  SEQUENCE 

49  C 

49  C  MAINTENANCE  COMMANDS: 

50  C 

51  C  CA  -  CATALOG  SEQUENCE 

52  C  PD  -  READ  SEQUENCE 

55  C  SA  -  REREAD  SEQUENCE 

54  C 

55  C 

56  C  INITIALIZE  FOINTER  INTO  COMMAND  BUFFER 
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57 

5a 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 
60 
81 
62 

83 

84 

85 
66 
37 
88 
69 

90 

91 

92 

93 

94 

95 

96 

97 

98 


100  IPNT=1 

C  CHECK  IF  COMMAND  BUFFER  HAS  BEEN  EXCEEDED 
110  IF(IPNT.LE.  MAX  COM-8)  (JO  TO  115 

C  OUTPUT  ERROR  MESSAGE 
WRITE(8  1 ) 

1  FORMAT (  '  COMMAND  BUFFER  EXCEEDED') 

C  OUTPUT  SEQUENCE  AS  IT  STANDS 

GO  TO  190 

C  ISSUE  PROMPT  MESSAGE  TO  USER 
115  WR ITE ( 9  ,2  ) 

2  FORMAT (  '  ENTER  COMMAND') 

C  INPUT  COMMAND  AND  PARAMETERS 

RE AD (7  ,3,END=9999)IC0M,LINE 

3  FORMAT ( A2 ,72A1  ) 

C  IS  THIS  A  MAINTENANCE  COMMAND? 

IF(ICOM.EQ.  'SA  '  )GO  TO  190 
C  REQUEST  TO  P.E-CATALOG  A  SEOUENCE? 

IF(ICOM.EO.  'CA  '.AND.IPNT.EO .1 )GO  TO  190 
C  IF  NOT  A  MAINTENANCE  COMMAND,  ENTER  INTO  COMMAND  BUFFER 
COMMAND' IPNT)=ICOM 

C  DETERMINE  WHICH  COMMAND  THIS  IS  AND  GO  TO  ITS  HANDLING  ROUT  I  Nt. 
IF (ICOM.EQ.  'DS  '  )GO  TO  120 
IF ( I COM.EO . 'TM'130  TO  130 
I F ( I  COM . EO .  'LB') GO  TO  140 
IF(ICOM.EQ.  'AC  ')GO  TO  150 
IFdCOM.EO.  'PC  '130  TO  160 
IF ( ICOM.EQ . 'RP'IGO  TO  170 
IF (ICOM.EQ.  'CA ')GO  TO  180 
I F ( I COM.EO.  'ST ' 'GO  TO  190 
C  IF  INVALID  COMMAND,  GO  BACK  AND  GET  NEW  ONE 
WRITE ( 9  ,3000  ) 

3000  FORMAT (  '  INVALID  COMMAND'! 

GO  TO  110 

C  ROUTINE  TO  INTERPRET  DS  COMMAND 

C  I  FORM  COLLECTS  INTEGER  PARAMETERS  FF  CM  LINE  AND  STORES  THEM  IN 
C  COMMAND  BUFFER.  I  ERR  INDICATES  WHETHER  PARAMETERS  WERE  VALID 
C  INTEGERS. 

120  CALL  I NTF0PM(3,LIN  E,72, COMMAND! IPNT  +1 ) , I  ERR ) 

C  CHECK  IF  PARAMETERS  WERE  ENTERED 

IF(CCMMAND(IPNT-1).EQ.0)SO  TO  125 
C  CHECK  FOR  INVALID  FAPAMETEF 
I F ( I  ERR  .  NE . 0 )GO  TO  125 


99  C  IF  PARAMETERS  WERE  C.K.,  ADJ’  ST  POINTER 

100  C  INTO  COMMAND  BUFFER 

101  121  I PNT  =  I PNT  +4 

102  C  GET  NEXT  CCMMAND 

103  GO  TO  110 


104  C  FROMPT  USER  TO  ENTER  PARAMETERS 

105  125  WRITE (8 ,4  ) 

106  4  FOFMAT (  '  DS#, SPEED, RATE? '31 '' ' 

107  C  INPUT  FREE  FORMAT  PARAMETERS  AND  STORE  IN  C OvM AND  PUFFER 

109  CALL  READI  (7,C6MM.AND(IPN7+1)  ) 

109  C  ADJUST  JOINTER  AND  RETURN 

110  GO  TO  121 

111  C  ROUTINE  TO  INTERPRET  T«  COMmam) 

11?  C  COLLECT  FLOATING  FOIN'"'  PARAMETER  AND  STCF.E  IN  7.  IF.RR  R  E  T  "  B  N  S 
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11?  C  ERROR  INDICATION. 

114  130  CALL  FPTFORM!LINE,?2,T, IERR) 

115  C  WAS  PARAMETER  ENTERED? 

116  I F (T . EQ  . 0 .  ) 00  TO  135 

117  C  WAS  PARAMETER  VALID? 

118  IF(IERR.N£.0'GO  TO  135 

119  C  STORE  FLOATING  POINT  PARAMETER  AS  TWO  INTEGERS  IN  COMMAND  BUFFER 

120  132  COMMAND' IPNT+1 > =P ( 1 ' 

121  COMMAND! IPNT+2  '  =  R(21 

122  C  INCREMENT  FOINTER  INTO  COMMAND  BUFFEP 

123  I PNT=I PNT  *3 

124  C  GET  NEXT  COMMAND 

125  GO  TO  110 

126  C  FROMPT  USEP  TC  ENTER  PARAMETER 

12?  135  WRITE ( P  , 5  1 

128  5  FORMAT (  '  TIMS(SEC)') 

129  C  INPUT  PARAMETER 

1?0  CALL  READF !  1  ,T  I 

131  C  STORE  IN  COMMAND  BUFFER 
13?  GO  TO  132 

13?  C  ROUTINE  TO  INTERPRET  LB  COMMAND 

134  C  COLLECT  INTEGER  PARAMETERS  AND  STORE  IN  COMMAND  BUFFER 
1?5  140  CALL  I NTFORM '7 , L INE, 72, COMMAND ( I F  NT +1 '  ,  I  ERR  ) 

136  C  CHECK  FOR  ERROR  OR  NO  PARAMETERS 

1?7  IF(IERR.EQ.0.AND.CCMMAND(IPNT+1).NE.0)GO  TO  145 

138  C  PPCMPT  USER  TO  ENTER  PARAMETERS 

139  WRITE! 8,6) 

140  €  FORMAT!  '  L?*t3*KW,3*KVAR; (71  )') 

141  C  COLLECT  PARAMETERS  AND  STORE  IN  COMMAND  BUFFEP 

142  CALL  READI ' 7 , COMMAND! I PNT+1 ) ' 

143  C  INCREMENT  POINTER 

144  145  I PNT=I PNT+Q 

145  C  GET  NEXT  COMMAND 

146  GO  TO  110 

147  C  POUTINE  TO  INTERFRET  AC  COMMAND 

148  C  COLLECT  FLOATING  POINT  PARAMETER  IN  T 

149  150  CALL  F PTFORM (LI NE ,72 , T , I  ERR ) 

150  C  CHECK  FOP  ERPOP  OP  NO  PARAMETER 

151  IF(IERR.EQ.0.AND.T.NE.0. )G0  DO  155 

152  C  PROMPT  USER  TO  ENTER  PARAMETERS 

153  VR ITE (8 , 7 ) 

154  7  FORMAT!'  DURATION  OF  ACOUI SI  TON! SEC  '  ' ) 

155  C  INPUT  PARAMETER 

156  CALL  R EADF ! 1 ,T  1 

157  C  STORE  PARAMETER  AS  INTEGERS  IN  COMMAND  BUFFER 

158  155  COMMAND ( IPNT+1  )  =  R  ( 1 ) 

159  COMMAND! IPNT +2  1=P(2' 

160  C  INCREMENT  FOINTFR  INTO  COMMAND  PUFFER 

161  I PNT  =  I PNT+3 

162  C  GET  NEXT  COMMAND 

163  GO  TO  110 

164  C  ROUTINE  TO  INTERPRET  RC  COMMAND 

165  C  COLLECT  INTEGER  PARAMETERS  AND  STORE  IN  COMMAND  BUEFER 

166  160  CALL  I NTFORM (2 .LINE, 72, COMMAND! IPNT+1  ) , I  ERR  ) 

167  C  CHECK  FOR  ERROR  OF  NO  PARAMETERS 

168  IT ! I  ERR . EO .0 • A  ND .COMMAND! IPNT  +  1) .NE .0 'GO  TO  165 
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169  C  PROMFT  USER  TO  ENTER  PARAM ETERS 

173  WRITE/9,9' 

171  6  FOPMAT! '  CONTACT#, l/0» (21)  ' ) 

172  C  COLLECT  PARAMETERS  AND  STORE  IN  COMMAND  BUFFER 

173  CALL  READI (2, COMMAND! IPNV+ll  ' 

174  C  INCREMENT  POINTER 

175  165  IPNT=IPNT-3 

176  C  GET  NEXT  COMMAND 

177  GO  TO  110 

170  C  ROUTINE  TO  INTERPRET  RO  COMMAND 
179  C  INPUT  SEOU5NCE  NUMB EF 

lee  170  CALL  INTFORMfl .LINE, 72, TNUM.IERR' 

131  C  CHECK  FOR  ER*OR  OR  NO  RESPONSE 

132  I F / 1 EB P  .  SO . 0  .  A  ND . TN UM . N E  . 0 ' G C  TO  175 

193  C  PROMPT  USER  TO  ENTER  SEQUENCE  NUMBER 
134  172  VR 1TE ( 8 ,9 ) 

185  9  FORMAT!'  ENTER  TEST  SEQUENCE  NUMBER'; 

186  C  COLLECT  SEQUENCE  NUM3ER 

137  CALL  READI (1  ,TNUM) 

138  C  CHECK  FOF  VALID  SECUENCE  NUMBER 

109  175  IF  ''  TNUM  .  LT  .  0  .OR  .  INUM  .  GT  .599)  GO  TO  172 

190  C  SET  RANDOM  ADDRESS  POINTER  IN  UFT 

191  C  NOTE:  EACF  SEQUENCE  OCCUPIES  a  SECTORS 

192  UFT( 4  )  =4*TNUM 

193  C  READ  SEQUENCE  AND  STORE  IN  COMMAND  BUEEER 

194  DO  177  1=1,4 

195  177  CALL  READ!  COMMAND!  'I-l'#12P+l),2£ftUFT) 

196  C  OUTPUT  SEQUENCE  IDENTIFIER 

197  VRITE(6,10'TNUM 

19e  10  FORMAT!//'  TEST  SECUENCE  NUMBER', 15) 

199  C  OUTPUT  SEQUENCE 

700  GO  TO  190 

201  C  ROUTINE  TO  HANDLE  CA  COMMAND 

202  C  ENSURE  THAT  SEQUENCE  ENDS  WITH  STOP  COMMAND 

203  180  COMMAND-' IPN?'= 'ST' 

2e4  C  OUTPUT  SEQUENCE  FOR  USER  TO  VIEW 

205  C  RESET  POINTER 

206  190  I PNT=1 

207  C  OUTPUT  HEADINGS 

209  WRITE ( 6 , 1 1  ) 

209  11  FORMAT!'  TIME ' , 3X , 'DS ' , 2X , 'S PD ' , 2X , 'RAT E ' , 3X , 'LB ' ,6X , ' 

210  IPX  ,  'K VAR  '  ,8X ,  'DATA  ',7X ,  'RC'//) 

211  C  OUTPUT  COMMANDS,  ONE  AT  A  TIME 

212  200  NCMD=-COMMAND!lPNT) 

213  IF'NCMD.EQ. 'DS ')GO  TO  201 

214  I F (NCMD . EQ .  'TM  '  )GO  TO  202 

215  I F ( NCMD  .  EO .  'LB  ' ) GO  TO  203 

216  IFtNCMP.EQ.  '/C  ')GO  TO  2e4 

217  IFtNCMD.EQ. 'RC ')GO  TO  205 

213  IF(NCMD.EO.  'ST  ' '  GO  TO  206 

219  C  IF  NONE  OF  THESE,  ASSUME  ST 

220  GO  TO  206 

221  C  OUTFUT  DS  COMMAND  PARAMETEBS 

222  201  WRITE(6, 12  )  (COMMAND! IFNT  +  I ) ,1=1  ,3) 

223  12  FORMAT ! 10X  ,11 ,216) 

224  C  UPDATE  POINTER 


31 


AFWAL-TR-80-2033 


*D  MODCOMP  SOURCE  EDITOR 


DATE  12/27/79  09:30:56 


PAGE  5 


225 

226 

C 

227 

226 

C 

229 

C 

230 

C 

231 

202 

232 

233 

C 

234 

235 

13 

236 

C 

237 

238 

C 

239 

240 

C 

241 

203 

242 

14 

243 

C 

244 

2^-5 

C 

246 

247 

C 

248 

C 

249 

C 

250 

204 

251 

252 

C 

253 

254 

15 

255 

C 

256 

257 

C 

258 

259 

c 

260 

205 

261 

16 

262 

C 

263 

264 

C 

265 

266 

C 

267 

2ee 

269 

c 

269 

210 

270 

17 

27J 

c 

272 

273 

c 

274 

275 

c 

276 

277 

c 

278 

279 

220 

290 

C 

I PNT=I PNT+4 
GET  NEXT  COMMAND 
GO  TO  200 

OUTPUT  TM  COMMAND  PARAMETER 

COLLECT  REAL  PARAMETER  INTO  INTEGER  ARRAY  EQUIVALENCED  TO 
REAL  VARIABLE 

R( 1 ) 'COMMAND ( IPNT+1 ) 

R(2)=C0MMAND(IPNT+2) 

OUTPUT  PARAMETER 
WR ITE( 6 , 13 ) T 
FORMAT ( IX ,F6 . 1 ) 

UPDATE  POINTER 
I PNT=I PNT+3 
GET  NEXT  COMMAND 
GO  TO  200 

OUTPUT  LB  COMMAND  PARAMETERS 

WRITE (6 , 14 ) (COMMAND( I PNT+I )  ,1=1,7) 
F0FMAT(25X,I2,1X,6I4) 

UPDATE  POINTER 
I PNT=I PNT  +  8 
GET  NEXT  COMMAND 
GO  TO  200 

OUTPUT  AC  COMMAND  PARAMETER 

COLLECT  REAL  PARAMETER  INTO  INTEGER  ARRAY  EOUI VALENCED  TC 
REAL  VARIABLE 

R(l)=COMMAND(IPNT+l) 

R ( 2) = COMMAND ( I PNT+2) 

OUTPUT  PARAMETER 
WRITE (6 , 15 )T 
F0RMAT(55X,F6.2) 

UPDATE  POINTER 
I PNT=I PNT+3 
GET  NEXT  COMMAND 
GO  TO  200 

OUTPUT  RC  COMMAND  PARAMETERS 

WRITE (6, 16) (COMMAND (I PNT+I  ' ,1=1,2) 

F  ORMAT ( 65X ,213) 

UPDATE  POINTER 
I PNT=I PNT+3 
GET  NEXT  COMMAND 
GO  TO  200 

CHECK  TO  SEE  IF  THIS  SEQUENCE  IS  TO  BE  CATALOGUED 

if.icom.nb.'ca  ')go  to  100 

PROMPT  USER  TO  ENTER  SEQUENCE  NUMBER  TO  CATALOG  UNDER 
WR IT 5 ( 8 , 1?  ' 

FORMAT('  ENTER  TEST  SEQUENCE  NUMBER') 

INPUT  SEQUENCE  NUMBER 
CALL  itEADI  (1,1' 

CHECK  VALIDITY  OF  SEQUENCE  NUMBER 
IF (I  .LT .0.OR .1 .GT.599)GO  TO  210 
SET  RANDOM  ADDRESS  POINTEF  IN  ’JFT 
UFT (4 ) =a* I 

OUTPUT  SEQUENCE  TO  DISK  AS  4  SECTORS 
DO  220  1=1 ,4 

CALL  WRITE(COMMAND( ( 1-1 )*1 28+1 ) , 256 ,UFT ) 

GET  NEXT  COMMAND 
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281  GO  TO  100 

282  9999  STOP 

283  END 

284  C 

285  C 

286  C  THE  FOLLOWING  ROUTINES  ARE  USED  DURING  TEST  SEQUENCE  CREATION 

287  c  TO  INPUT  FFEE-FOPMAT  REAL  AND  INTEGER  PARAMETERS  FOR 

28 8  C  GENERATOR  TEST  COMMANDS. 

289  C 

290  C 

291  SUBROUTINE  READI (N , I  ARRAY ) 

292  C 

293  C  ROUTINE  INPUTS  ASCII  STRING  IN  FREE  FORMAT  AND  F.ETUFNS  N 

294  C  EQUIVALENT  INTEGER  VALUES  IN  IARRAY 

295  C 

296  INTEGER  I ARRAY ( 1 ) , BUF(74) , BUFSI Z 

297  DATA  BUFSI Z/74/ 

298  C  INPUT  STRING  OF  ASCII  CHARACTERS 

299  100  READ(7,1000)PUF 

300  1000  FORMAT (74A1) 

301  C  CALL  ROUTINE  TO  FCPMAT  AND  CONVERT  TO  INTEGER 

302  CALL  I  NT  FORM  (N  ,  BUF , BUFS IZ  E , I ARR AY  ,  I  ERR  ) 

303  C  CHECK  FOR  ERROR  IN  PARAMETERS 

304  IF  ■'  I  ERR  .  EO  .0  1R  ETURN 

305  C  ECHO  INVALID  CHARACTER  TO  USER 

306  WRITE(3,2000)BUF(IERR) 

307  2000  FOPMATt'  INVALID  CHARACTER  - ' , A 1 , 5X ,  'F £- ENTER  LINE') 

308  C  GST  N EW  STRING 

309  GO  TO  100 

310  END 

311  C 

312  C 

313  SUBROUTINE  I  NT  FORM ( NPAR , STB  I NG  ,  LT H , I  NT , I  ERR ) 

314  C 

315  C  ROUTINE  CONVERTS  ASCII  STRING  (STRING)  07  LENGTH,  LIH ,  TO 

316  C  NPAR  EQUIVLENT  INTEGERS  STORED  IN  ARRAY  I  NT ,  I  ERF  IS  SET 

317  C  IF  ANY  CHARACTER  IN  STRING  IS  NOT  A  VALID  DIGIT. 

318  C 

319  INTEGER  I  NT ' 1 1 , STPI NG ( 1 1 

320  C  INITIALIZE  EFPC®  FLAG 

321  I ERR=0 

322  C  INITIALIZE  FOINTED  INTO  STRING 

323  I PNT =1 

324  C  CONVERT  EACH  INTEGER 

325  DO  100  1=1, NPAR 

326  C  INITIALIZE  VALUE 

32  7  I  NT ( I } =e 

323  C  CHECK  IE  FOINTEF  EXCEEDS  STRIPS  LENGTH 

329  10  IF' IPNT  .OT .L?H)CO  TO  100 

330  C  CHECK  FOR  DELI M IT ER 

331  20  I F ' STPI NG ' IPNT ' .NE. '  ' . AND . STP I  MG ( I PNT ' . N E. * ,  '  ) GO  TC  30 
33?  C  INCHEMENT  FOINTER 

333  IPNT=IPNT*1 

334  c  GET  NEXT  CHAPACTEF 

335  GO  TO  10 

336  C  CHECK  FOP  VALID  DIGIT 
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33  30  IFSTFING  IFNT’.LE.  '9  ' . AND . STB  I  NO ( 1 PNT ’ .  GE.  G^  TC  ^ 

339  C  SET  E^RoR  FLAG  ANT  RETURN 

?39  I  EFP  =  I  P'.I 

340  RETURN 

341  c  CONVERT  TC  INTEGER  AND  .ADD  TO  ACCUMULATION  Of  VALUE 

34?  4?  I  N1  i  i  .  =  u:  ‘  I  '*1?  ♦  (STRING(IFNT'-'0'  /25f: 

34?  C  INCREMENT  POINTER 

?44  IPNT=IPNT»1 

T4L  c  CHECK  EOF  END  CF  S-plNG  CP  DELIMITER 

34f  I :  ■  IFNI  .LE  .  LTD.  AND.STRINGf  I  PNT  )  .NE.  '  '.AND, 

?47  1STRING ( IPNT  )  .NE.  ')GC  TC  30 

?4-s  ia;>  CONTINUE 
3 41-  RE  i  URN 

350  END 

351  C 
?52  C 

? 5?  SUBROUTINE  REA TF ( N , ARRAY ) 

354  c 

?  5,5  C  ROUTINE  INPUTS  ASCII  STRING  IN  FREE-FOFMAT  AND  PETUFNS  N 
•'be  C  EQUIVALENT  FLOATING  FOINT  VALUES  IN  ARRAY. 

357  C  NOTE:  IN  ALL  CURRENT  CALLS  TO  PEADF  ,  ONLY  1  VALUE  IS 

356  C  INF'JT.  f  I  .  E  .  ,  N  =  1  ) 

3  59  C 

38?  INTEGER  BUR ( 74  )  , BUES I Z 

3  51  REAL  ARRAY ( 1  ) 

362  DATA  BUFSIZ/74/ 

36?  C  INPUT  STPING  OF  ASCII  CHARACTERS 
354  100  READ ( 7 , 1 000 ) BUF 

365  1000  FORMAT ( 74A1 ) 

368  0  CALL  FOUTTNE  TO  FORMAT  AND  CONVERT  TC  FLOATING  POINT 

367  CALL  FFTFOaMfP.UF.BUFSIZ  .ARRAY, IERR) 

.368  C  CHECK  FOR  ERRORS 

389  I  F  f I  ERR . EO .0 )P  ETUFN 

370  C  ECHO  INVALID  CHARACTER  TO  USER 

371  1»RITE(9, 2000  )BtJF(I  ERR) 

37?  2000  FORMAT (  '  INVALID  CHARACTER  A1 , 5X ,  'RE-ENTER  LINE') 

373  C  GET  NEW  STRING 

374  GO  TO  100 

375  END 

376  C 

377  c 

378  SUBROUTINE  FPTFORM ( STRI NG , LTH , FPT , I  ERR ) 

379  C 

390  C  ROUTINE  CONVERTS  ASCII  STRING  (STRING)  OF  LENGTH,  LTH,  TO 

381  C  EQUIVALENT  FLOATING  POINT  VARIABLE,  FPT. 

382  C  IERR  IS  SET  IF  ANY  CHARACTER  IN  STRING  IS  NOT  A  VALID  DIGIT 

383  C  OR  DECIMAL  POINT. 

384  C 

385  INTEGER  STR  I  NG ( 1  ) , PFLAG , PAMT 

336  C  INITIALIZE  ERROR  FLAG 

387  I EPR=0 

368  C  INITIALIZE  POINTER  INTO  STRING 

399  I PNT=1 

390  C  INITIALIZE  RETURN  VALUE 

391  FPT=0. 

392  C  INITIALIZE  DECIMAL  POINT  INDICATOR 
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293  FFLAG=0 

394  C  P AMT  KEEPS  TRACK  OF  HOW  MAN!  TIGITS  OCC'.JR  AFTER  FECIMAL  POIN 

395  PAMT  =0 

396  C  CHECK  IF  ALL  OF  STPING  HAS  BEEN  EXAMINED 

397  100  IF(IPN?.GT.LTH)RETURN 

398  C  CHECK  FOE  PELIMITEP 

399  IF(STRING( IPNT1 .NE.  '  ' . AND  .STRI NG ( IPNT ) . NE. ' ,  '  )GC  TO  110 

400  C  INCREMENT  POINTER 

401  I PNT=I PNT  +  1 

402  C  CHECK  NEXT  CHARACTER 

403  GO  TO  100 

404  C  CHECK  FOP  DECIMAL  POINT 

405  110  I F^ STRING^ IPNT  )  .NE. ')GO  TO  120 

406  C  SET  INDICATOR 

407  PFLAG=1 

408  C  GET  NEXT  CHARACTER 

409  GO  TO  140 

410  C  CHECK  FOR  VALID  DIGIT 

411  120  IF(STRI NG ( IPNT ) .LE.  '9  '.AND .STRING ( IPNT ). GE.  '0 ' )GC  TO  12? 

412  C  SET  ERROR  FLAG  AND  RETURN 

413  I EKR=I PNT 

414  RETURN 

415  C  CHANGE  ASCII  DIGIT  TO  FLOATING  POINT  AND  ADD  TO  ACCUMULATION 

416  130  FPT=FPT*10.  *  FLOAT! ( STRING! I PNT - '0  '  )/256) 

417  C  UPDATE  NUMBER  OF  DIGITS  AFTER  DECIMAL  POINT 

418  PAMT=P AMT+PFLAG 

419  C  I NCPEMENT  POINTER 

420  14?  IPNT=IPNT+1 

42 1  C  CHECK  FCR  END  OF  STRING  OR  DELIMITER 

4?2  I F( IPNT  .GT .LTH .OR . STRING ( I PNT )  . EO .  '  .OR . STRING ( I PNT )  .EO  . 

423  1 ')GO  TO  150 

424  C  CHECK  NEXT  CHARACTER 

425  GO  TO  110 

426  C  ADJUST  FPT  TO  ACCOUNT  FOR  DECIMAL  POINT 

427  i£0  FPT=FPT*10 .**(~PAMT) 

4?8  C  RETURN  TO  MAIN  ROUTINE 

429  RETURN 

430  END 
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1  PROGRAM  PUNSYS 

2  C 

3  C  THIS  ROUTINE  PERFORMS  EXECUTION  OF  A  SEQUENCE  SELECTED 

4  C  BY  THE  USEF.  EXECUTION  OF  A  TEST  SEQUENCE  IS 

5  C  ACCOMPLISHED  BY  SEQUENTIALLY  INVOKING  THE  ROUTINE  OR  TASK 

6  C  REQUIRED  TC  PERFORM  EACH  COMMAND  IN  THE  SEQUENCE. 

7  C 

8  C  FILE/DEVICE  ASSIGNMENTS  REQUIRED  FOR  THIS  ROUTINE: 

9  C 


10 

C 

8 

=  TKO 

(TEKTRONIX  OUTPUT) 

PROMPT  MESSAGES 

TO  USER 

11 

C 

7 

=  TKI 

(TEKTRONIX  INPUT) 

USER 

RESPONSES 

12 

C 

6 

=  A02 

(ISC  OUTPUT) 

SEQUENCE  DISPLAY 

13 

C 

31 

=  TSL 

(DISK  PARTITION) 

TEST 

SEQUENCE  LIBPAFY’ 

14 

C 

15 

C 

16 

C 

*  * 

*  *  *  #  *  * 

*  * 

*  *  #  * 

*  * 

17 

C 

*  * 

*  CATALOGUED  ON  LM  12, 

26, ?9 

*  *  *  * 

*  * 

18 

C 

*  * 

*  * 

****** 

*  * 

*  *  *  * 

*  * 

19 

c 

20 

c 

EXTERNAL  SUBROUTINES  REQUIRED 

: 

21 

c 

22 

c 

NAME 

LOCATION 

23 

c 

24  C  1. 

25  C  2. 

26  C  3. 

27  C  4. 

28  C  5. 

29  C  6. 

30  C  7. 

31  C  8. 

32  C 

33  C 

34  INTEGER  COMMAND  ( 51 2) ,  Rf  2)  ,  UFT  ( 6 )  .PNAME  (  2  )  ,  TN’JM ,  LI  NE(  72 ) 

35  EQUIVALENCE  (T  , R  ) 

36  C  NOTE:  P  IS  AN  INTEGER  APRAY  WHICH  IS  EQUIVALENT  TO  THE  REAL 
3?  C  VARIABLE  T. 

38  C 

39  C  INITIALIZE  MAXIM!”*  NUMBER  OF  COMMANDS  TO  BE  ALLOWED  IN  A  TEST 

40  C  SEQUENCE 

41  DATA  MAXCOM/512/ 

*2  C  SET  UP  UFT  FOE  WF.  ITING/READI  NG  SEQUENCE  TO  DISK 

43  C  NOTE:  #BFE0  =  031  =  TSL 

44  DATA  UFT /0 , ZBFE0 , Z 4400 , 3*0 / 

45  C 

46  C  DESCRIPTION  OF  TEST  COMMANDS 

47  C 

48  C  TM  -  TIME  DELAY 

49  C  DS  -  DRIVE  STAND  CONTROL 

50  C  LB  -  LOAD  BANK  CONTROL 

51  C  RC  -  RELAY  CONTACT  CONTPOL 

52  C  AC  -  DATA  ACQUISITION  CONTROL 

53  C  ST  -  SPECIFIES  END  OF  TEST  SEQUENCE 

54  C 

55  C  MAINTENANCE  COMMANDS: 

56  C 


TIMER 

UL 

READ 

LB 

WRITE 

LB 

INITSAF 

UL 

TSKDEL 

UL 

SETBF 

UL 

SET3T 

UL 

GETDATA 

UL 

37 


AFWAL-TR-80-2033 


*3  MODCOMp  SOURCE  EDITOR  DATE  12/27/79  09:30:20  PACE  2 


57 

56 

59 

60 
61 
62 

63 

64 

65 

66 
67 
69 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
82 
33 

84 

85 

86 

97 
86 
39 

90 

91 

92 

93 

94 

95 

96 

98 

99 

100 

101 

10? 

103 

104 

105 

106 

107 

108 

109 

110 
111 
112 


C  RD  -  READ  SEQUENCE 

C  SA  -  REREAD  SEQUENCE 

C  EX  -  EXECUTE  OVERIAI  FROM  Lm  FILE 

C 

C 

C*************** 

C  *  *  *  SELECTION  OF  TEST  SEQUENCE  *  *  *  * 

C*************** 

C 

C  INITIALIZE  POINTER  INTO  COMMAND  BUFFER 
100  I PNT=1 

C  ISSUE  PROMPT  MESSAGE  TO  USER 
115  VRITE(8,2 ' 

2  FORMAT (  '  ENTER  COMMAND') 

C  INPUT  COMMAND  AND  PARAMETERS 

FE*D ( 7 , 3 , END =9 999 'ICOM.LINE 

3  FORMAT ( A2 ,7?A1  ) 

C  IS  THIS  A  MAINTENANCE  COMMAND? 

IFf ICOM.EO.  'SA  '  'GO  TO  190 

C  IF  NOT  A  MAINTENANCE  COMMAND,  ENTER  INTO  COMMAND  RUFFEP 
COMMAND  < I PNT  )  =  I COM 


o 


C  DETERMINE  WHICH  COMMAND  THIS  I  <?  AND  GO  TO  ITS  HANDLING  ROUTINE 
IF  ( ICOM.EO.  'RD  '  'GO  TO  1’’0 
I F ( I  COM  .  EQ  .  'EX  ')GO  TO  300 
C  IF  INVALID  COMMAND,  GO  BACK  AND  GET  NS A  ONE 
tf R ITE ( 6  , 2000  ) 

2000  FORMAT  (  '  INVALID  COMMAND') 

GO  TO  115 

C  ROUTINE  TO  INTERPRET  RD  COMMAND 

C  INPUT  SEQUENCE  NUMBER 

170  CALL  iNTORMfl  ,  L  I N  E,  72,  TNUM ,  IFFP  ■ 

C  CHECK  FOR  ERROR  OR  NO  RESPONSE 

I F ( IESR .EQ.0. AND. TN"M.NE. 0)00  TO  175 
C  PROMPT  USEP  TC  ENTER  SEQUENCE  NUMBER 
172  WRITE(P,9) 

9  FORMAT ('  ENTER  TEST  SEQUENCE  NUMBER  ' ' 

C  COLLECT  SEQUENCE  NUMBER 

CALL  REACI ( 1  .TNUM' 

C  CHECK  FOR  VALID  SEQUENCE  N"*BER 
175  I F 1  TNUM .  L'1’  .0  .CP  .  TN”M  .  GT  .  599 '  kO  TO  1?2 

C  SET  RANDOM  ADDRESS  POINTER  IN  UFT 
C  NOTE:  EACH  SEQUENCE  OCCUPIES  4  SECTORS 
UFT ( 4 ' =4*TNUM 

C  READ  SEQUENCE  AND  STORE  IN  C0mmA.nD  BUFFER 
DO  177  I  cj  ,4 

177  CALL  READfCOMMANDf '  1-1 ' *126*1 ' ,256, UFT) 

C  OUTPUT  SEQUENCE  IDENTIFIER 
WP  ITE (6,10  )TN"V 

10  FOFMAT^ //'  T  ES  T  SEOUENCF  NUMBER  ',15' 

C  OUTPUT  SECUENCF  FOR  USER  TO  VIEW 

C  RESET  POINTER 
190  I PNT=1 
C  OUTPUT  HEADINGS 
WRITE (6 ,11  ' 

11  FORMAT  (  '  TIME ',3:' ,  'OS  '  ,?T  ,  'SPV  ,2X,  'DATE'.  3X  ,  'LB'  ,6X  ,  'KV  ', 
19X  ,'KVAP  ' ,  6X ,  'DATA  '."’X,  'RC  '//' 
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11? 

114 

115 

116 
11? 
119 

119 

120 
121 
122 
12? 

124 

125 

126 
12? 
129 

129 

130 

131 

132 
13? 
134 
125 
136 
13? 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 
161 
162 

163 

164 

165 

166 

167 

168 


C  OUTPUT  COMMANDS,  ONE  AT  A  TIME 

200  NCMD=C09MAND< IFNT' 

IF(NCMD.EQ.  'DS  ' ) GO  TO  201 
IF(NCMD.EQ.  'TM'lGO  TO  202 
IF( NCMD  .EQ .  'LB ' )G0  TO  203 
IF(NCMD.EQ.  'AC  ')GO  TO  204 
IFCNCMD .EO. 'PC  ' 'GO  TO  205 
IF( NCMD  .EO.  'ST  '  )GO  TO  P00 

C  IF  NONE  OF  THESE,  ASSUME  ST 
GO  TO  900 

C  OUTPUT  DS  COMMAND  PARAMETERS 

201  WRITE (C  .12  )  fCOMMAND(IPNT*I >,1*1,3) 

12  FORMAT' 10X, 11,216' 

C  ’JFDATE  POINTER 

t  PNT=I PNT+4 
C  GET  NEXT  COMMAND 
GO  TO  200 

C  OUTPUT  TM  COmm*nD  PARAMETER 

C  COLLECT  REAL  PARAMETER  INTO  INTEGEF  AREA  I  EOUI VALENCED  TO 
C  REAL  VARIABLE 

202  R( 1)=COMManU(ipnT*1) 

R ' 2 ' = COMMA  ND ( I PNT+2) 

C  OUTPUT  PARAMETER 
k’R  ITE  (6 , 13  )T 

13  FORMAT ( 1 X , F6. 1 > 

C  UPDATE  POINTER 

I PNT  =  I PNT  +3 
C  GET  NEXT  COMMAND 
GO  TO  200 

C  OUTPUT  LB  COMMAND  PARAMETERS 

203  WRITE(6,14)( COMMA ND( IPNT+I ) ,1=1,7) 

14  FORMAT (?5X,I2,lX,6I41 
C  UPDATE  POINTER 

IPNT=IPNT*8 
C  GET  NEXT  COMMAND 
GO  TO  200 

C  OUTPUT  AC  COMMAND  PARAMETER 

C  COLLECT  REAL  PARAMETER  INTO  INTEGER  ARRAY  EQt'I VALENCED  TO 
C  REAL  VARIARLE 

204  R( l)=COMMAND(IFNT+l) 

R(2)=C0MMAND(IPNT+2) 

C  OUTPUT  PARAMETER 
VR ITE (6 , 15  )T 

15  F0RMAT(55X,F6.2) 

C  UPDATE  POINTER 

I  PNT=I  PNT  *-3 
C  GET  NEXT  COMMAND 
GO  TO  200 

C  OUTFUT  RC  COMMAND  PARAMETERS 

205  WRITE(6,16){C0MMAND(IPNT+I ) ,1=1 ,2) 

16  FORMAT (65X, 213) 

C  UPDATE  POINTER 

1PNT=1PNT*3 
C  GET  NEXT  COMMAND 
GO  TO  200 

C  ROUTINE  TO  LOAD  OVERLAT  FROM  LM  FILE. 
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169  C  NOTE:  LOADING  OVERLAY  TRANSFERS  CONTROL  FROM  RUNSYS  TO  THE 

170  C  ROUTINE  OVERLAYSD. 

171  C  ONLY  USE  OF  THIS  FEATURE  SO  FAR  HAS  BEEN  TO  LOAD  ANALYSIS 

172  C  ROUTINE  AT  THE  COMPLETION  OF  A  GENERATOR  TEST  SEQUENCE. 

172  C 

174  C  PROMPT  USER  TO  ENTER  OVERLAY  NAME 

175  300  WR ITE( 8 , 13 ' 

176  18  FORMAT  <  ‘  ENTER  PROGRAM  NAME! (A3)') 

177  C  INPUT  NAME 

178  READ (7,19) PNAME 
l?s  19  FORMAT (2A2) 

180  C  ROUTINE  WHICH  FOLLOWS  PERFORMS  OVERLAY  OF  REQUESTED  ROUTINE 

181  INLINE 

162  LDM,2  PNAME 

183  LDM  ,3  PNAME+1  GET  ROUTINE  NAME 

184  REX, #37  CONVERT  TO  CAN  CODE 

165  DFC  4+1 

166  STM, 3  PNAM  STORE  IN  FMAM 

187  REX ,#43  GET  INFC  ON  RUNSYS 

166  DFC  0 

189  TRR ,2,3  REG  2=START  ADDri  OF  RUNSYS 

190  PEX , #2B  LOAD  CHAIN  OVERLAY 

191  DFC  ?,f>LM 

192  PNAM  RES  1  STORAGE  FOR  PROGRAM  NAME 

193  DFC  0 

194  FINI 

195  C  NOTE:  AT  THIS  POINT  DURING  EXECUTION,  CONTROL  HAS  PASSED  TO 

196  C  TEE  OVERLAY. 

197  C 

198  C 

199  C  ASK  USER  IF  THIS  SEQUENCE  IS  TO  BE  EXECUTED 

200  900  WRITEf  8,20 ) 

201  20  FORMAT (  '0READY  TO  RUN  THIS  SEQUENCE? ( Y  OR  N)') 

202  C  INPUT  RESFONSE 

203  READ ( 7 , 21  )  IC  P 

204  21  FORMAT (A2' 

205  C  CHECK  RESPONSE!  IF  NOT  Y,  GET  NEXT  COMMAND 

206  1FUCH.NE.  'Y')GO  TO  100 

207  C 
203 

209  C  BEGINNING  OF  TEST  SEQUENCE  EXECUTION 

210  c##**#*#******#* 

211  C 

212  C  INITIATE  SAFETY  MONITORING  PERFORMED  IN  DSC  TASK. 

213  C  NOTE:  ITE^P  IS  STORAGE  LOCATION  USED  3Y  ROUTINE  INITSAF  TO 

214  C  SAVE  SYSTEM  SI  POINTER 

215  ITEMP-0 

216  CALL  I  NITS  AF (I  TEMP ) 

217  C  INITIALIZE  POINTEP  INTO  COMMAND  BUFFER 

218  IPNT»1 

219  C  OBTAIN  SYSTEM  CLOCK  READING  AT  START  OF  TEST 

220  CALL  TWA  IT (0  . ) 

221  C  CHECK  IF  FOINTER  EXCEEDS  BUFFER 

222  1000  I F ( I PNT  .GE  .MAXCOM )GO  TO  100 

223  C  EXAMINE  EACH  COMMAND  OF  SEQUENCE  AND  JUMP  TO  INSTRUCTIONS 

224  C  WHICH  WILL  INITIATE  ACTION  REQUIRED  BY  THAT  COMMAND. 
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225  NCMD=COMMAND ( IPNT  ) 

226  IF(NCMD.EQ.  'DS  ')GO  TO  1100 

227  IF(NCMD.EQ. 'TM')GO  TO  1200 

228  IF(NCMD.EQ. 'LB'lGO  TO  1300 

229  IF(NCMD.EQ. 'AC ')GO  TO  1400 

230  I F (NCMD  .EQ  .  'RC  ' )GO  TO  1500 

231  C  IF  NONE  OF  THESE  COMMANDS,  TEST  SEQUENCE  IS  THROUGH 

232  C  TERMINATE  INPUT  OF  SAFETY  MONITORING  PARAMETERS  AND  RELOAD 

233  C  ORIGINAL  SI  POINTER 

234  INLINE 


235 

LDI ,3  #4400 

TERMINATE  COMMAND 

236 

OCB  ,3,2 

ISSUE  COMMAND  TO  OUTPUT  DEVICE 

237 

OCB.3,3 

ISSUE  COMMAND  TO  INPUT  DEVICE 

238 

LDM.10  ITEMP 

GET  SI  FOINTER 

239 

STM, 10  #00D3 

STORE  IN  SYSTEM  SI  TRAP 

240 

LDI, 2  OSBF 

SBF  FLAG 

241 

ZRR  ,3 

242 

REX ,#4E 

ZERO  FLAG 

2*3  FI Nl 

244  GO  TO  100 

245  C  ROUTINE  WHICH  PASSES  DS  PARAMETERS  TO  SUBROUTINE  WHICH  WILL 

246  C  INITIATE  DRIVE  STAND  CONTROL 

24?  1100  CALL  SETDS  (COMMAND*' IPNT  +  1)  ) 

243  C  INCREMENT  POINTER  INTO  COMMAND  BUFFER 

249  I PNT=I PNT+4 

250  C  GET  NEXT  COMMAND 

251  GO  TO  1000 

252  C  CALL  ROUTINE  TO  PROVIDE  REQUESTED  DELAY 

253  1200  CALL  TWA  IT  1  COMMAND ( I PNT  +  1 11 

254  C  INCREMENT  POINTER 

255  IPNT=IPNT+3 

256  C  GET  NEXT  COMMAND 

257  GO  TO  1000 

253  C  PASS  LB  PAFAMETEPS  TO  SUBROUTINE  WHICH  CONTROLS  LOAD  BANK 

259  C  SETTINGS 

260  1300  CALL  SETLB(CCMMAND(IPNT  +  1) , COMMAND ( IFNT+2 ), COMMAND* IPNT+5 1 

261  l.IERR) 

262  C  INCREMENT  POINTER 

263  I PNT  =  I PNT  +8 

264  C  GET  NEXT  COMMAND 

265  GO  TO  1000 

266  C  CALL  ROUTINE  TO  INITIATE  DATA  ACQUISITION 

267  1400  CALL  ACOUIRE(COMMAND( IPNT+1) 1 

268  C  INCREMENT  FOINTER 

269  I ?NT=I PNT +3 

270  C  GET  NEXT  COMMAND 

271  GO  TO  1000 

272  C  CALL  ROUTINE  WHICH  CONTROLS  RELAY  CONTACTS 

273  1500  CALL  S ETRC (COMMAND( I PNT  +  1 1 , I  ERR ) 

274  C  INCREMENT  FOINTER 

275  I PNT=I PNT+3 

276  C  GET  NEXT  COMMAND 

277  GO  TO  1000 

278  C 

079  c#********##**## 

260  C  END  OF  TEST  SEQUENCE  EXECUTION 
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291  C*************** 

28?  C 

283  9999  STOP 

284  END 

285  C 
296  C 

287  C  FOLLOWING  ROUTINES  INITIATE  ACTION  REQUIRED  5T  INDIVIDUAL 

288  C  COMMANDS  IN  TEST  SEQUENCE. 

289  C 

290  C 

291  SUBROUTINE  SETDS (COMMAND) 

292  C 

293  C  THIS  ROUTINE  MAKES  PARAMETERS  OF  DS  COMMAND  AVAILABLE  TO 

294  C  DRIVE  STAND  CONTROL  TASK,  DSC. 

295  C 

296  INTEGER  COMMAND ( 1 ), COM( 3) 

297  C  GET  PARAMETERS  IN  ARPAY  ACCESSIBLE  TO  INLINE  CODE 

298  DO  10  1=1,3 

299  10  COM(I)=CCMMANB(n 

300  C  PLACE  POINTER  TO  PARAMETERS  IN  TASK  COMMUNICATION  APEA 

301  INLINE 

302  LDI.2  ODSC  POINTER  IS  NAMED  DSC 

303  LDI ,3  COM 

304  REX  ,#4E  STORE  POINTER 

305  FINI 

306  RETURN 

307  END 
309  C 

309  C 

310  SUBROUTINE  TWAIT(T) 

311  C 

31?  C  ROUTINE  DELAYS  EXECUTION  OF  RUNSYS  (I.E.,  OPERATION  OF 

313  C  GENERATOR  TEST)  UNTIL  SPECIFIED  TIME,  T.  TRIS  DELAY  PROVIDES 

314  C  TIMING  CONTPOL  OF  TEST  SEQUENCE . 

315  C 

316  DOUBLE  PRECISION  TPEGIN.TNOW 

317  C  IF  REQUESTED  TIME  EQUALS  ZERO,  SAVE  CURRENT  SYSTEM  CLOCK  FEADIN 

318  IF ( T . NE . 0 . 'GO  TO  1 

319  CALL  TIMER (TBEGIN ) 

320  RETURN 

321  1  CONTINUE 

322  C  GET  SYSTEM  CLOCK  READING 

323  CALL  TIM£P(TNOWl 

324  C  IS  DELAY  FOSITIVE? 

325  IF((DPLE(T  ) +T BEGIN-. 025D0)  .GT .? NO*  )GO  TO  2 

326  C  NOTIFY  USEP  OF  TIMING  EFFOR 

327  WR  ITE( 6 ,100  )T 

328  100  FORMAT (  '  TI"E  ERROR El 5. 5 ) 

329  RETURN 

330  C  CONVERT  TIME  IN  SECONDS  TO  MINUTES  AND  TICS 

331  2  MI N=IFIX (SNGL( ( TB EG  I N+DBLE ( T ) V60.D0)) 

332  ITIC  =  I  FIX  (SNGL(TBEGIN-‘-DBLE(T'-60.D0*DBLE(  FLOAT  (MIN)  1  )*200.  • 

333  C  CALL  SYSTEM  ROUTINE  TO  DELAY  UNTIL  REQUESTED  TIME 

334  CALL  .jK DE L( MI N.ITIC,. TRUE. ..FALSE.) 

335  RETURN 

336  END 
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337  C 

338  C 

339  SUBROUTINE  S ETLB ( LB , KW , K V AF , I EPP  ) 

340  C 

341  C  ROUTINE  SETS  LOAD  BANK  SWITCHES  BT  CONTROLLING  A  GROUP  OF  CONTACTS 

342  C  IN  I/OIS  SYSTEM. 

343  C 

344  c  LB=1 , 2 ,0R  3  (DESIGNATES  LOAD  BANK  NUMBER) 

345  C  KW  IS  INTEGER  ARRAY  WITH  RESISTIVE  LOAD  VALUES  FOR  PHASE  1,2,  AND  3. 

346  C  MAXIMUM  OF  40  KW  PER  LOAD  BANK. 

347  C  KVAP  IS  ARRAY  WITH  REACTIVE  LOAD  VALUES.  MAXIMUM  OF  30  KVAR  PER 
346  C  LOAD  BANK. 

349  C  I ERR=0  IF  NO  ERRORS  IN  INPUT  PARAMETERS ;  =1  IF  ERRORS. 

350  C 

351  INTEGER  EW(3),KVAR  (3)  ,  FACTOR  ,  S12  (3  )  ,S21  ( 3 ) ,  S20  <  3';  ,  S 13  ( 3 ) 

352  INTEGER  0'JTC0D(3)  ,SCAN(3)  ,  TAB21  (3  )  ,  TA  P12  (6 )  ,  TAB13  (  6)  ,  TAB20  ( 6 ) 

353  C 

354  C  TAB12  THROUGH  TAR20  APS  ARRAYS  OF  BIT  CONFIGURATIONS  WHICH  WEEN 

355  C  OUTPUT  To  A  GROUF  OF  CONTACTS  OF  THE  I/OIS,  SET  UP  THE  SAME  LOADS 

356  C  AS  THE  SWITCH  SETTINGS  AVAILABLE  ON  THE  LOAD  BANK  CONTROL  CONSOLE. 

357  C  THE  NUMBERS  12,21,13,20  CORRESPOND  TO  THE  SWITCH  MAFKINGS  FCP 

358  C  PHASE  #1  OF  LOAD  BANK  #1  USED  IN  SCHEMATIC  DRAWING  OF  CONTROL 

359  C  CONSOLE. 

360  C 

361  C  THIS  ROUTINE,  THEN,  COMBINES  THE  REQUIRED  BIT  PATTERN  TO  ACHIEVE 

362  C  THE  LOAD  SETTING  REQUESTED  AND  OUTPUTS  THIS  CONFIGURATION  TO  THE 

363  C  GROUP  OF  CONTACTS  WHICH  CONTROLS  THE  LOAD  BANK  BEING  USED. 

364  C 

365  C 

366  DATA  TA312/0 , Z8000 , Z4000, ZC000 , Z6000 , ZE000/ 

367  DATA  TAB21/0  ,Z 1000 , 20800 , 2 1600 , Z0C00 , Z1 C00 , Z0E00 , Z 1E00/ 

363  DATA  TAB13/0  , Z0100 , Z0080, Z0180 , Z00C0 , Z01C0/ 

369  DATA  TAB20/0 .Z0020 ,Z001 0 , Z0030 , Z001 B , Z0038/ 

370  C  INITIALIZE  ERROR  FLAG 

371  IEFR=0 

372  C  CHECK  FOR  VALID  LOAD  BANK  # 

373  I F (LB . LT . 1 .OR . LB . GT . 3 )G0  TO  1000 

374  C  FACTOR  ACCOUNTS  FOR  PARALLELED  LOAD  BANKS 

375  FACT0R=2 

376  IF(LB.EQ.3)FACT0R=1 

377  C  CHECK  VALIDITY  OF  KW  AND  KVAR  SETTINGS 

376  DO  10  1=1,3 

379  IF (KW ( I  )  .LT  .0 .OR. KW ( I (/FACTOR ,GT ,40 )G0  TO  1000 

330  10  IF(KVAF ( I ) . LT.0.OP.K VAR ( I ) /FACTOR .GT.30 (GO  TO  1000 

381  C  COMPUTE  SWITCH  SETTINGS 

382  DO  20  1=1,3 

383  C  FOP  HIGHEST  KW  RETTING,  SELECT  SWITCH  CONFIGURATION 

384  IF(KW< I (/FACTOR, NE.40)GO  TO  11 

385  S 12(1) =6 

386  S21(I)=8 

387  GO  TO  12 

398  C  SELECT  LESSER  KW  SWITCH  SETTING 

389  11  S 1 2( I ) =MOD (KW( I (/FACTOR, 5)  +  1 

390  C  SELECT  GREATER  KW  SETTING 

391  S2 1 ( I ) =KW ( I ) /FACTOR/5  ♦  1 

392  C  FOP  HIGHEST  KVAR  SETTING,  SELECT  SWITCH  SETTING 
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r  AS  r. 
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?93 

394 

395 

396 

397 

398 

399 

400 

401 

402 

403 

404 

405 

406 

407 

408 

409 

410 

411 

412 

413 

414 

415 

416 

417 
419 

419 

420 

421 

422 

423 

424 

425 

426 

427 

428 

429 

430 

431 

432 

433 

434 

435 

436 

437 

438 

439 

440 

441 

442 

443 

444 

445 

446 

447 

448 


12  IF(EVARm/FACTOR.NE.30)GO  TO  13 
S13{ I  1=6 

S20( I ) =6 
SO  TO  20 

C  SELECT  LESSEE  KVAF  SETTING 

13  S 1 3 ( I )=MOD'KVAR( I  1 /FACTOR, 5)  +  1 
C  SELECT  GREATER  KVAR  SETTING 

S20(I  )=KVAF(n/FACTCB/t  -  1 
20  CONTINUE 

C  SET  UP  WORDS  *0  PE  OUTPUT  TO  I /CIS 
DO  30  1=1,3 

30  0UTC0D'I,=TABl?(Sl?fI')-*?A513'Sl3''I  '  ' +TA.B20  (  320  <  I  - 

1TA321 ( S2l ( 1  )  ) 

C  SET  UF  SCAN  TABLE  SERVE  AS  ADDRESS  CONTROL  F 0=  I  'CIS 
DO  40  I  =-1 ,3 

40  SC  AN ( I ) =4Z40 10+ (LB-1 )*3»I-1 

C  CUTFUT  CONTROL  WORDS  TO  CONTACTS  TRPCUi"  I/CIS 
INLINE 

LDI  ,2  ’’FT 
FEX.l 

DFC  O'JTCOD , 6  OUTFUT  3  WORD' 

BRU  OUT 

UFT  DEC  0.3DOO. *8400, 0,0,0 

OUT  NOP 

FINI 
RETURN 

C  PRINT  ERROR  MESSAGE 
1000  IEPR=1 

WRITE! 6,1' 

1  FORMAT (  '  *** ERROR  -  SUBROUTINE  SET  LB',//, 

1'  ILLEGAL  SETTING  PECUESTED'l 
RETURN 
END 
C 

c 

SUBROUTINE  S ETRC ( COM , I  ERR ) 

C 

C  ROUTINE  SETS  CONTACTS  IN  I/OIS  SYSTEM  TO  DESIRED  STATE  il  rF  0' 

C  COM ( 1  )  HAS  NUMBER  OF  CONTACT,  C0M(2)  HAS  DESIRE?  STATE 
C  I ERR=0  II  NO  EFROPS  IN  INPUT  PARAMETERS 
C 

INTEGER  C0M(1 ) .WORDOUT, SCAN 
DATA  WORDOUT/0/.SCAN/4Z4019/ 

C  INITIALIZE  ERROR  FLAG 
I ERR=0 

C  CHECK  VALIDITY  OF  PARAMETERS 

IF ! COM( 1 ). IT. 1 .OR.COM(l) .GT.13.OR.COM (2 '.LT.0. OF .COMf  2  .  ;".l  ' 
ICO  TO  1000 

C  CONTACT  NUMBERING  AND  ACTUAL  ADDRESS  ARE  NOT  EQUIVALENT. 

C  CONTACTS  NUMBERED  1-8  ARE  CONTROLLED  BY  "ITS  6-13  OF  CONTROL 
C  WORD.  CONTACTS  9-12  ARE  CONTROLLED  BY  BITS  1-4. 

C  THEPEFOPE,  A  SEPAPATE  ROUTINE  IS  REQUIRED  TO  DEVELOP  TEE  CONTROL 
C  WORD  FOR  EACH  GROUP  OF  CONTACTS. 

C 

C  SELECT  APPROPRIATE  ROUTINE  BASED  ON  CONTACT  NUMBER 
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449 

450 

451 

452 

453 

454 

455 
4  56 

457 

458 

459 

460 

461 

462 

463 

464 

465 
*66 

467 

468 
-169 

470 

471 
47? 

473 

474 

475 

476 

477 

478 

479 

480 

481 
462 
483 

464 

465 
4  86 
467 
4ee 
489 
4  90 

491 

492 
453 

494 

495 

496 
i,on 

493 
49c 
400 

501 

502 
50? 
504 


I F ( COM ( 1 ) . GT .8 ) GO  TO  2 
C  ROUTINE  FOR  CONTACTS  1-8 
C  REQUEST  TO  OPEN  CONTACT? 

I F ( COM ( 2  ) . EO .0  )G0  TO  1 
C  SET  BIT  IN  CONTROL  WORD  TO  CLOSE  CONTACT 
CALL  S  ETBF ( WOP  DOUT , COM( 1 )  +  5 ) 

GO  TO  10 

C  SET  BIT  IN  CONTROL  WORD  TO  OPEN  CONTACT 

1  CALL  SETBT ( VOPDOUT, COM( 1) +5 ) 

GO  TO  10 

C  ROUTINE  FOR  CONTACTS  9-12 
C  PEOUEST  TO  OPEN  CONTACT? 

2  I F ( COM ( 2 ) . EO .0  ) GO  TO  5 
C  SET  BIT  TO  CLOSE  CONTACT 

CALL  SETBF ( VORDOUT, COM( 1 ) -8) 

GO  TO  10 

C  SET  BIT  TO  OPEN  CONTACT 
5  CALL  SET BT 'VORDOUT, CCM( 1 )  -8 ' 

10  CONTINUE 

C  OUTPUT  CONTROL  WORD  TO  I/OIS  DEVICE 
INLINE 

IDI , 2  UFT 
REX  ,1 

DFC  WCRDOUT, 2 
BRU  OUT 
DFC  SCAN  1 

UFT  DFC  0,9000, #8400 ,0,0, 0 

OUT  NOP 

FI  N1 
RETURN 

C  SET  ERROR  FLAG 
1000  IERR=1 

C  PRINT  MESSAGE  AND  RETUPN 
WRITE(6 ,100  } 

100  FORMAT ('  ***ERR0R  -  SUBROUTINE  SE  TRC  ' ) 

PETURN 

END 

C 

C 

SUBROUTINE  A CCU IPE ( ?J NO 
C 

C  ROUTINE  PREPARES  DATA  STRUCTURES  REQUIRED  3Y  DATA  ACQUISITION 
C  TASK,  DAC,  MAKES  POINTERS  TO  THESE  STRUCTURES  AVAILABLE  TO 
C  DAC,  AND  THEN  ACTIVATES  TEE  DAC  TASK. 

C 

I NTEGEP  UFT '10, 9 ' ,3UF(2946,91 , 1  ARRAY  30)  ,CNT 
DATA  MAX3UF/9/.CNT/2944/ 

C  INITIALIZE  EPPOP  COUNT  FOP  PARITY  ERRORS  DISCOVEPED  BY 
C  ROUTINE  GETDATA 
1  I  ERR -0 

C  CALL  FOUTINE  WHICH  INF”TS  A  BLOCK  OF  DATA  FROM  THE  DATA 
C  ACQUISITION  SYSTEM  VIA  T’E  4 p05  DEVICE 
CALL  GETDArA(I ARRAY ,30, 10, NV, I  EPF  } 

C  CHECK  FOR  FARITY  OP  CHECKSUM  EFPOPS 
IF  IERR .FQ .0 'GO  TO  2 

C  PRINT  mess^t  To  USE*  AND  LOOP  UNTIL  ERROR-FREE  BLOCK  IS  INPUT 
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505  WRITER,  3)IEFR 

606  3  FORMAT (  ***4605  RAT;*, 15,'  ERRORS  -  SUBROUTINE  ACQUIRE', 

50?  IV,'  PARITY  OR  CHECKSUM  ERRORS') 

506  GO  TO  1 

509  C  DETERMINE  TI«E  OF  ONE  BLOCK  OF  DATA 

510  2  TI*EV IAFRAY '10  )-IARPAY(2) '*0.2S~6 

511  C  DETERMINE  NUmBER  Of  "ISK  TRACKS  NEEDED  TO  STORE  DATA  FOR 

512  C  REQUESTED  TI«E  (T IM  )  AT  FRESENT  SAMPLING  RATE 

513  C  NOTE :  MAXTPK  =  (1  BLOCK/TIME  SEC'  *  (10  WORDS/BLOCK '  * 

514  C  (1  TRACK/23  SECTORS  USED)  *  '1  SECTOR/126  WORDS) 

515  MArTRK='10.*TIM)/(TIME*  2944  .  )+l 

516  C 

517  C  CREATE  UFT'S  FOR  WRITING  TO  DISK  AND  B1JFFSP  APEAS  FOR  READING 

513  C  FRC«  4305  USING  DATA  CHAINING 

519  C  P  DTE :  DATA  INPUT  SCHEME  USES  CIRCULAR  FILLING  OF  9  BUFFERS 

520  C  AND  STORAGE  OF  EA  C  ?  BUFFER  ON  A  SEPARATE  DISK  FILE. 

521  DO  10  I -1  .MAXBUF 

622  C  SET  VCPD  Cf'tNT  FOP  DATA  CHAINING 

523  3UF( CNT-1  ,1  '  =1  AND f-CNT , 427FFF ) 

524  C  SET  UP  UFT'S 

525  UFTfl.I  =0 

526  UFT  (  2,1  "=  ICA.  N  ( 30  ' 

52-7  UFT ( 3 , 1  '  =4 ZA400 

523  DO  10  J--4.10 

529  10  UFT(J,n=0 

630  C  SET  POINTERS  TO  NEXT  BUFFER  FOR  DATA  CHAINING 

531  M -*AT  BUF -1 

532  DO  20  M  , M 

533  20  BU?(CNT*2,n=IADR(BUF(l,I*l)' 

534  C  SET  PCINTEF  IN  LAST  BUFFEF  TO  FCINT  dACK  TO  FIRST  BUFFER 

535  BUF( CNT *2, MAXBUF )  =  IADRf  BUF( 1 , 1 )  ' 

536  C 

537  C  PUT  MAXTRR  ON  DISK,  SC  THAT  ANALYSIS  ROUTINES  WILL  KNOW  EXTENT 

53e  C  OF  STORED  DATA 

539  C 

540  C  SET  RANDOM  ADDRESS  POINTER  IN  UFT 

541  UFT(4 , 1  '  =23 

542  C  READ  FROM  DISK  TO  POSITION  PAST  CALIBRATION  DATA 

643  C  STOFED  BY  ROUTINE  CALAD 

544  CALL  READ(  BUF(  1  ,1  '  ,128,  UFT  f  1  , 1 ' ,  . TRUE . 

545  C  RESET  RANDOM  ADDRESS  POINTER  IN  "FT 

5^6  UFT( 4,1' =23 

54?  BUF( 1 , 1 ) =MAXTRK 

543  CALL  WRITS (BUF (1,1), 123 ,UF7 (1,1), .TRUE . ) 

549  C 

550  C  ASSEMBLY  LANGUAGE  POUTINE  TO  LOAD  POINTER  IN  TASK  COMMUNICATION 

551  C  AREA  WITH  ADDRESS  OF  UFT'S  AND  TATA  BUFFERS  AND  NUMBER  OF  TRACKS 

55?  C  TO  BE  ACQUIRED. 

553  C  THESE  PARAMETERS  WILL  BE  PICKED  UP  BY  THE  DAC  TASK  WHICH  WILL 

554  C  BE  TAKEN  OUT  CF  A  WAIT  STATE  AT  THE  FND  0?  THIS  ROUTINE. 

555  C 

556  INLINE 


557 

LDI  ,2  <?BFR 

POINTER  NAME  IS  BER 

553 

ID I ,3  BUF 

559 

REX ,#4K 

STORE  ADDRESS  0?  BUFFER  IN  FOINTEF 

560 

LDI, 2  ^TRK 

FLAG  NAME 

46 


*!'  MOTCOMF  SOURCE  EDITOR 


LDM.3  MAXTPK 
REX , #4  E 
LDI.2  3UF? 
LDI.3  UFT 
REX ,#45 
P.EX,  #15 
DFC  0 
RFC  ODAC 
FINI 
RETURN 
END 
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POINTER  NAME 
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STORE  POINTER 


RESUME  DAC  TASK 


THE  FOLLOWING  ROUTINES  ARE  USED  TO  INPUT  FREE- FORMAT  REAL 
AND  INTEGER  PARAMETERS  FOR  GENERATOR  TEST  SEQUENCE  MAINTENANCE 
COMMANDS . 


SUBROUTINE  PEADI(NMAPPAT) 

C 

C  ROUTINE  INPUTS  ASCII  STRING  IN  FREE  FORMAT  AND  RETURNS  N 
C  EQUIVALENT  INTEGER  VALUES  IN  I  ARRAY 
C 

INTEGER  IARRAY(l),BUF'?4l .BUFSIZ 
DATA  BUFSIZ/74/ 

C  INPUT  STRING  OF  ASCII  CHARACTERS 
100  P  EAD  ( 7 , 1 000 ) BUF 
1000  FORMAT ( 74A 1 ) 

C  CALL  ROUTINE  TO  FORMAT  AND  CONVERT  TO  INTEGER 
CALL  I NTFOPM ( N ,  BUF, BUFS IZE.IARRAY.IEPR ) 

C  CHECK  FOR  ERROR  IN  PARAMETERS 
I?  (IERR  . EQ  .0  )P. ETURN 
C  ECHO  INVALID  CHARACTER  TO  USEP 
WRITE( 8 ,2020 )BUF( IERR ) 

2000  FORMAT (  '  INVALID  CHARACTER  - '  ,A1 ,5X,  'RE-ENTER  LINE') 

C  GET  NEW  STRING 
GO  TO  iee 
END 


SUBROUTINE  I  NT  FORM ( NP AR , STRI NG , LTH , I  NT , I  ERR ) 

ROUTINE  CONVERTS  ASCII  STRING  (STRING)  OF  LENGTH,  LTH,  TO 
KPAP  EQUIVALENT  INTEGERS  STORED  IN  ARRAY  INT.  IERR  IS  SET 
IF  ANY  CHARACTEP  IN  STRING  IS  NOT  A  VALID  DIGIT. 

INTEGER  INT(l)  ,STRING(1 ) 

INITIALIZE  ERROR  FLAG 
I ERR=0 

INITIALIZE  POINTER  INTO  STRING 
I PNT=1 

CONVERT  EACH  INTEGER 
DO  100  I =1  , NPAR 
INITIALIZE  VALUE 
I NT( I ) =0 

CHECK  IF  POINTER  EXCEEDS  STRING  LENGTH 
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61?  10  IE<  IPNT.GT.LTHVGC  TO  ie-0 

619  C  CHECK  FOR  PEI I MITER 

619  20  IFfSTBINGflPN'D.NF.'  '  .  AND  .STRI  AC  ( I  PUT  ) .  N  E.  ' ,  ' )  50  TO  3? 

620  C  INCREMENT  POINTER 

621  I PNT=I PNT+1 

622  C  GET  NEXT  CHARACTER 

62?  GO  TO  10 

624  C  CHECK  FOR  VALID  DIGIT 

*25  30  IFfSTRI  NGdPNT  '  .LE. '9  ' .  AND  .STRING  ( IPNT  ) .  SE. 'O  '  '  SC  TO  40 

626  C  SET  ERROR  FLAG  AND  RETURN 
62?  I ERR=I PNT 

628  RETURN 

629  C  CONVERT  TO  INTEGER  AND  ADD  TO  ACCUMULATION  0?  VALUE 

630  40  I  NT(  I  )=INT(I  )*10  +  ( STPI NG  ( I  PNT  )- '0  '  V256 

631  C  1 NCFEMENT  POINTER 

632  I PNT  =  I FNT  +1 

633  C  CHECK  FOR  END  OF  STRING  0?  DELIMITER 

634  IF(IPNT.LE. LTH .AND.STRI NG( IFNT) . NE .  '  '.AND. 

635  lSTRINGdFNT).NE.  ' ) GO  TO  30 

636  100  CONTINUE 

63?  RETURN 

636  END 
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1  PROGRAM  DSC 

2  C 

3  C  FOLLOWING  ROUTINE  PROCESSES  DRIVE  STAND  COMMAND 

4  C  INSTRUCTIONS  RECEIVED  FROM  ROUTINE  RUNS  PS  . 

5  C  RESULTS  FROM  THIS  ROUTINE  ARE  OUTPUT  (VIA  DEVICE  OUT=A01) 

6  C  TO  THE  8080  DRIVE  STAND  CONTROLLER  WHICH  PROVIDES 

7  C  ACTUAL  CONTROL  OF  THE  DRIVE  STANDS. 

8  C  THIS  FOUTINE  HAS  BEEN  CATALOGUED  IN  THE  FORM  OF  AN 

9  C  AUTO-START  TASK  SO  THAT  IT  EXECUTES  CONTINUOUSLY  UNLESS 

10  C  FORCED  INTO  A  HOLD  STATE. 

11  C 

[jj****i*******»*(!*i(i*«***i> 

13  C  *  *  *  CATALOGUED  ON  LM  9,26,79  *  *  *  *  *  *  *  *  *  *  * 

14  C*********************** 

15  C 

16  C  EXTERNAL  SUBROUTINES  REQUIRED: 


17  C 

18  C  NAME  LOCATION 

19  C 

20  C  1.  SAFCEECK  UL 

21  C  2.  WRITE  LB 

22  C  3.  READ  LB 

23  C  4.  WAIT  UL 

2 ^  C  5.  TERMIN  LB 

25  C  6.  HOLD  L5 

26  C 

27  C 


28  INTEGER  LASTCOM ( 3 ) , BUF( 4) , TEMP( 2 ) , IUFT ( 10 ) , OUFT ( 10) 

29  INTEGER  ERPCNT 

30  REAL  DSCALE(3 ) 

31  LOGICAL  TESTS 

32  DATA  IUFT/0 , Z3A70, ZE200 ,0, 1,5*0/ 

33  DATA  OUFT/0 ,Z611C , ZE200 ,0 ,P, 5*0/ 

34  C  NOTE:  W3A70-PI N ?  #611C=PC!JT 

35  C 

36  C  INITIALIZE  COMMAND?  THIS  COMMAND  WILL  BE  PROCESSED  UNTIL 

37  C  A  VALID  COMMAND  IS  RECEIVED  FROM  RUNSYS. 

38  C  NOTE:  LASTCOM ( 1 ) =DS», LASTCOM ( 2' =S PEED , LASTCOM ( S\ =RATE 

39  LASTCOM f 1 ) =1 

40  L  ASTCOM (2 ) =0 

41  LA  STCOM ' 3 1 =0 

42  C  FOLLOWING  IS  AN  ASSEMBLY  LANGUAGE  ROUTINE  WHICH  SETS  FLAGS 

43  C  IN  A  TASK  COMMUNICATION  AREA  SO  THAT  LATER  PART  OF  THIS 

44  C  ROUTINE  DOES  NOT  TPY  TO  PPOCESS  A  NEW  COMMAND  UNTIL  ONE  IS 

45  C  AVAILABLE. 

<16  C  TASK  COMMUNICATION  AREA  IS  HANDLED  BY  CUSTOM  REX  CALLS  »4F 

47  C  AND  *^D.  SEE  LISTING  OF  O/S  FOP  FULL  EXPLANATION  OF  THESE 

48  C  REX  CALLS 
4q  r 

50  INLINE 

51  LDI  , 2  ODSC  FLAG  IS  CALLF.D  DSC 

ZRF  3 

53  FEX,’»4E  LOAD  FLAG  WITH  ZERO 

54  *  MUST  ALSO  ZERO  SBF  FLAG,  WHIC°  UNTIL  CLEARED  Bv  RUNSYS 

55  *  WILL  CAUSE  SAFETY  CHECKING  TO  BE  IGNORED. 

56  LDI, 2  ?SB  I 
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57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
3? 

83 

84 
35 
86 

87 

88 
eg 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
100 
101 
102 

103 

104 

105 

106 

107 

108 

109 

110 
111 
112 


ZRR  ,3 
REX,#4E 
FINI 

100  CONTINUE 

C  PERFORM  CHECK  OF  SAFETY  PARAMETERS 
CALL  SAFCHECK 

C  TEST  ESC  FLAG.  IF  ZERO,  KEEP  PROCESSING  CURRENT  COMMAND 
C  IF  NONZERO,  DSC  FLAG  POINTS  TO  NEW  COMMAND.  LOAD  THIS 
C  NEW  COMMAND  INTO  ARRAY,  LASTCOM. 

INLINE 

LDI ,2  0DSC 

REX ,#4D  GET  FLAG  INTO  REG.  3 

TRRB.3,3  4  +4  CHECK  FOR  ZERO 

BRU  A001  IF  ZERO,  TAKE  THIS  BRANCH 

*  IF  FLAG  NOT  ZERO,  JUMP  IS  MADE  TO  FOLLOWING  INSTRUCTIONS 

LDX.2.3  REG  2  POINTS  TO  START  OF  NEV  COMMAND 
STM, 2  LASTCOM  GET  FIRST  WORD 
ABR ,3,15 
LDX  2  3 

STM,' 2  ’lASTCCM*1  GET  SECOND  WORD 

ABR, 3 ,15 
LDX  ,2,3 

STM, 2  LASTCOM+2  GET  THIRD  WORD 

*  ZERO  DSC  FLAG,  SO  TRAT  UNTIL  RUNSYS  ISSUES  A  NEW  COMMAND 

*  (AND  CHANGES  FLAG)  COMMAND  IN  LASTCOM  'WILL  BE  PROCESSED. 

LDI, 2  9DSC 
ZRR,  3 
HEX,#4E 
A001  NOP 
FINI 

C  CHECK  VALIDITY  OF  DRIVE  STAND  COMMAND 

IF  (LASTCOM  1 1  '.LT.l.OP.LASTCCMd'  .GT  .3.  OR. 

1  LASTCOM '2)  .LT.0.OR.LASTCOM(2)  .  C-T  .  1 0000  .OR  . 

2  LASTCOM(3).LT.0.OR.LASTCOM(3) .GT.10 1GO  TO  40e 
C  SPEED  AND  RATE  COMMANDS  MUST  3E  CONVERTED  TO  FORMAT 
C  REQUIRED  BY  8080  CONTROLLER. 

C  I.E.,  12  BITS  OF  1  (4095)  =  MAX.  OUTPUT 
DO  302  1  -1,2 

302  TEMP( I  )  =  IFIX I FLOAT! LASTCOM f I +1 ) '*0 ,4095 ) 

C  ARRAY  BUF  WILL  CONTAIN  COMMA**  STRING  SENT  TO  3030  DS 
C  CONTRCLLEP.  THE  FOLLOWING  INSTRUCTIONS  PACK  APFAY  BUF . 

n 

v 

C  LOAD  BUF (II  WITR  0D=CR  WHICH  SIGNALS  BEGINNING  OF 
C  COMMAND  AND  DSN  IN  ASCII. 

BUF(l)=IOR'4Z0D30,LASTCOM( 1)) 

C  THE  FOLLOWING  INSTRUCTIONS  USE  FUNCTION  IASCII  TO  COWER 

C  THE  SPEED  AND  PATE  COMMANDS  TO  ASCII  AND  POSITION  TEEM 

C  IN  THE  FROPER  BYTE  FOSITION  OF  THE  WORD. 

C  I.E.,  SPEED  =  MSB  (®iif  (2  ) ) ,  LSB  ( BUF  ( 2 )  )  .MSB  (B'.'F  (3  ) ) 

C  PATF  =  LSB(BUF(3l ' ,MSB( SUF !* ’ ' ,LSR(BUF(4' ) 

F!F(2 ) =IOR 'IAS  Cl I ' TEMPI 1 ! , 3 , 1 ) , I  AS C 1 1 ( TEMP ( 1  \  2 , 0 ' ) 
BUF(3)=I0R (IASCII 1  TEMp( 1 ) , 1 , 1 ) ,1 ASC 1 1 (TEMP (2 ) ,  3 ,0 ) ) 
BUF(4)=!OP 'IASCII(TEMP(2' ,2, H , I  AS C 1 1 ( TEMP ( 2 ' ,  1,0' ; 

C  OtJTFUT  COMMAND  STRING  TO  8080  DS  CONTROLLER.  WAIT  UNTIL 
C  OUTPUT  CP2PATICN  IS  COMPLETS  BEFORE  CONTINUING. 

CALL  WRITS  (PUF  ,3,'V.IFT,  .TPUE.  1 
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113  C  INPUT  ONE  PIT?  FROM  8080  (VIA  DEVICE  I M  =  A 1 1  )  .  THIS 

114  C  IS  THE  DS#  WHICH  THE  CONTROLLER  ECHOES  BACK  TO  INDICATE 

115  C  THAT  IT  IS  OPERATING  CORRECTLY .  THIS  INPUT  OPERATION  IS 

116  C  DONE  IN  QUICK-RETURN  MODE,  SC  THAT  CONTROL  IS  RETURNED 

117  C  TO  THE  ROUTINE  AFTER  THE  OPERATION  IS  INITIALED. 

US  CALL  READIBUF.l  ,1'IFT,  .FALSE.  ) 

119  C  DELAY  20  TICKS  TO  ALLOW  INPUT  TO  FINISH. 

120  CALL  WAIT(20,0. DUMMY) 

121  C  CHECK  TO  SEE  IF  INPUT  HAS  FINISHED  (BIT  15  OF  IUFT  =  0) 

122  C  NOTE:  TESTR  RETURNS  TRUE  FOR  0. 

123  I F'TESTB(  IUFT( 1 ' ,15) ) GO  TO  303 

124  C  IF  INPUT  HAS  NOT  FINISHED,  TERMINATE  THE  INPUT  OPEPA.TION. 

125  CALL  TERMIN(ItJFT) 

126  C  INCREMENT  EFRCP  COUNT  WHICH  KEEPS  TPACK  OF  HOW  Many  TIMES 

127  C  8060  HAS  FAILED  TO  FCuO 

123  ERPCNT=ERRCNT+1 

129  C  ALLOW  MAX.  OF  2  EPPOPS  BEFOPE  HOLDING 

130  I F  ( ERRCNT  .GT  .2  )C-0  TO  500 

131  GO  TO  400 

132  C  IF  INFUT  OPERATION  WAS  FINISHED,  CHECK  TO  SEE  IF  DS# 

133  C  ECHOED  MATCHES  PS#  SENT 

134  C  NOTE:  SINCE  DS#  WAS  INPUT  AS  1  BYTE,  IT  MUST  RE  SHIFTED 

135  C  EIGHT  BEFOPE  COMPARISON.  ALSO  CONVERTED  TO  ASCII. 

136  303  I F ( ISHFT { RUF^ 1 ) , -P )-2Z30 . NE . LASTCOM ' 1 ) )G0  TO  500 

137  C  IF  DS#'S  mATCH,  RESET  ERROR  COUNT 

138  EPPCNT=0 

139  400  CONTINUE 

140  C  DELAY  NEEDED  HERE  FOR  PROPER  TIMING  SYNCHRONIZATION  WITH 

1*1  C  8080  DS  CONTROLLER 

142  CALL  WAIT(200,0, DUMMY) 

143  C  LOOP  BACK  TO  GET  NEW  COMMAND 

1**  GO  TO  100 

145  500  CONTINUE 

146  C  IF  8080  DOESN'T  ECHO  CORRECTLY,  PUT  TASK  IN  HOLD  STATE 

1*7  CALL  HOLD' .TRUE. ) 

1 48  C  AFTER  TASK  IS  RESUMED,  GO  RACK  TO  LOOP 

149  GO  TO  400 

150  END 

151  C 

152  C 

153  FUNCTION  IASCII  ( I CMD , nhex , NBYTE ) 

154  C 

155  C  ICMD  IS  12  BIT  COMMAND  TO  DRIVE  STAND.  THIS  ROUTINE 

155  C  EXAMINES  ONE  HEX  DIGIT  (4  BITS)  OF  ICMD  (POINTED  TO  BY  NHEX' 

157  C  .CONVERTS  THIS  HEX  DIGIT  TO  ASCII,  AND  POSITIONS  IT  IN 

159  C  THE  UPPER  OR  LOWER  BYTE  (DETERMINED  BY  NBYTE)  OF  A  WORD 

159  C  WHICH  IS  OUTPUT  TO  THE  9080  DPIVE  STAND  CONTROLLER. 

160  C 

161  C  SHIFT  HEX  DIGIT  0?  INTEREST  TO  RIGHT-MOST  POSITION  IN  WORD 

162  C  AND  MASK  OFF  OTHER  DIGITS. 

163  KDIG=IAND( ISHFT( ICMD,( 1 -NHEX ) #4 ) ,IZE ) 

164  C  IF  DIGIT  >  9,  ASCII  CODE  IS  DIFFERENT 

165  IFtKDIG.GT ,9'GO  TO  1 

166  C  CONVERT  TO  ASCII  AND  POSITION  IN  WORD 

167  I  ASCI  I  =1 S HFT (KDIG+2Z30,NBYTE*8) 

168  RETURN 
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16S  1  IASCII=ISHFT(KDIG+2Z37,N3rTS#8) 

170  RETURN 

171  END 
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1 

2 

3 

4 

5 

6 
7 
9 
9 

10 

11 

12 

13 

14 

15 

16 
17 
Id 
19 


PROGRAM  DAC 

THIS  ROUTINE  IS  CATALOGUED  AS  A  TASK.  IT  CAUSES  DATA  TO  BE 
ACQUIRED  FROM  THE  DATA  ACQUISITION  SYSTEM  AND  STORED  ON  DISK. 
THIS  DATA  ACQUISITION  IS  PERFORMED  ACCORDING  TO  PARAMETERS 
SPECIFIED  IN  THE  NEWSYS  ROUTINE. 


*  * 
*  « 
*  # 


$  $  w  a 

CATALOGUE!) 

*  *  *  * 


* 

ON 

* 


* 

LM 


9,26,79 

*  *  * 


*  # 

#  * 

*  * 


LOGICAL  TESTB 

INTEGER  B UF1(10), B'lF 2(14), TFMP2, TEMPI  ,TEMP3 

INTEGER  FLAG, TFKCNT, ERROR 

DATA  BUF1/ '  ERROR  HAS  OCCURRED'/ 

DATA  B’1F2/'  POSSIBLE  ERROR  HAS  OCCURRED'/ 
DATA  MAXBUF/9/ 

DATA  TEMP2 , TEMP 3/0 ,0/ 


20 

MAXI NT  =  (MAXBUF*16 )+4Z8200 

21 

C 

MAXINT  PEFLECTS  MAXIMUM  ALLOWABLE  NUMBER  Of  INTERRUPTS 

22 

C 

23 

99  FLAG=0 

24 

C 

FLAu  STORES  INDICATION  OF  INTERRUPT. 

25 

C 

26 

C 

FOLLOWING  IS  ASSEMBLY  L A NO HAG F  ROUTINE  THAT  FIRST 

27 

C 

PUTS  TASK  IN  WAIT. 

TASK  IS  REMOVED  FROM  WAIT  BY 

28 

C 

SUBROUTINE  ACQUIRE  WHICH  HAS  JUST  FILLED  PARAMETER 

29 

c 

PASSING  AREA.  TASK 

THEN  PICKS  UP  PARAMETERS  AND 

30 

C 

PEADS  DATA  FROM  4805 

INTO  BUFFER  AREA. 

31 

C 

32 

INLINE 

33 

DEV 

EQU  3 

DEVICE  #3  IS  4805 

34 

SECAMT  ECU  23 

! 23  SECTCPS/TFACK  USED 

35 

WDCNT  EQu  SECAMT*129  JWOP.DCOUNT  PER  TRACK 

36 

LDI.2  CIPLOC 

37 

STM, 2  «P0+rZV 

39 

STM  ,2  *C0+DEV 

SET  Up  I  NT.  ROUTINES 

39 

LDI.l  *4500 

40 

OCA ,1 , DEV 

TEPMINATE  48/5 

41 

WAI 

T  REX ,#11 

PUT  TASK  IN  WAIT  MODE 

A? 

LDI ,2  UBfP 

43 

REX ,*4D 

44 

TRRB.2,2  PEXIS 

IF  RFG  =  /  0!  REQ.  PAR.  EXISTS 

/.£ 

BPU  WAIT 

IF  PEG2  =  0!  PAR.  DOES  NOT  EXIST 

A6 

PEXIST  TrtRB.3.3  FAROE 

IF  REG3=/0>  PAR  HAS  BEEN  LOADED 

47 

BRU  W  *  I T 

^9 

PAFOK  CTM,  3  3UF 

GET  ADDR.  Of  BUFFER 

49 

LDI.2  OBFR 

50 

LDI, 3  0 

51 

FEX  ,<ME 

LOAD  ZERO  IN  BFR 

52 

LDI.2  OTRE 

53 

REX  ,<*4D 

54 

STM, 3  MAXTPK 

GET  NU“BFR  CF  TRACKS 

55 

LDI, 2  f>U  FT 

56 

REX  ,#4D 

* 

* 
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STM, 3  'JFTT 
EDM, 3  BUF 
EDI, 2 
STM, 2 
EDI  ,1 
STM  ,1 
EDI  ,1 
STM  ,1 
EDI ,  1 
OCA  ,1  ,DE V 
EDI  ,1 
OCA, 1, DEV 
ISA, 1, DEV 
TBRB ,1,0 
STEP  NOP 

STOK  EDI ,1  -WDC 
STM.i 
EDM, 2 
STM, 2 
EDI  ,1 
OCA , 1 , DFV 
BRU 


GET  ADDB.  OF  UFT 


INT 

#80+DEV 

#8200 

INT 

CIREOC 

#C0+DEV 

#4000 


;USE  INT  ROUTINE  "INT  " 

; SET  UP  DI  INTERRUPT  TRAP 
>  SET  UP  OBMM  ,0 ,0  INSTR 
JPUT  IN  INT 

*,GET  ADDA  OF  DUMMY  INT  ROUTIM 
.'SET  UP  SI  LOCATION 

{DISCONNECT  SI  \  DI 


{RESET  SI  FLAGS  AND  SET  ”P  COMMAND  BFR. 
,'GET  STATUS 

STOK  i CHECK  STATUS  SAROAS 

;**#j-UTt;pE  £PR0R  routine 

-WDCNTS#7FFF  {WORD  COUNT  FOR  TRACK  WITH  DATA  CHAINING 
W60+DEV  ; STORE  IN  DMP  AREA 

BUF  {GET  ADDP  OF  FIRST  BUFFER 

#70+PEV  , 'STORE  IN  DMP  AREA 

#F300 

INITIATE  INPUT 
DOMORE  { 


INTERRUPT  ROUTINE  FOR  4305 


INT  OBMM.0 
A3MM.11 
STM.I 
EDM,  1 
CRMB.l 
LDI  ,1 
STM.I 
INTOK  EDI , 1 

OCA, 1, DFV 
LDM.l 

CIALOC  CIR 
RSAVE  RES 
UFTT  RES  1 
BUF  RES  1 
DOMORE 

FI  Nl 

TAKCNT  =2 


JCET  OUT  OF  ASSEMBLY  CODS 

{SET  BIT  IN  FLAG  TO  ! ND  INT  ENTERED 

;S£T  ’JP  FOR  NEXT  INTERRUPT  TO  SET  NEXT  BIT  ?N 

ISAVE  REGl 

JCET  OBMM  I  NS  TP  IN  PEC1 


FLAG  ISET  BIT  IN  FLAG  TO  ! ND  INT  St 

INT  ISET  ’JP  FOR  NEXT  INTERRUPT  TO 

RSAVE  ISAVE  REGl 

INT  ;GET  OBMM  I  NS  TP  IN  PEC1 

MAXINT.S+4, INTOK  {CHECK  FOR  VALID  OBMM  INSTR 
#8200  {SET  UP  OBMM, 0,0  IN  REGl 

INT  {PUT  IN  INT  FOR  NEXT  TIME 

#7000  {SET  UP  COMMAND  WORD 


PSAVE 


{SET  UP  OBMM, 0,0  IN  REGl 
i PUT  IN  INT  FOR  NEXT  TIME 
,'SEI  UP  COMMAND  WORD 
{ RE-CONNECT  INTERRUPTS 
{RESTORE  P EG  1 

{RETURN 'ALSO  DUMMY  INT  ROUTINE  LOC.’ 
{SAVE  AREA  FOR  REGl 


{END  OF  MACRO  ASSEMBLER  CODE 


CHECK  FOR  ERRORS  IN  READING  DATA  FROM  4805. 
I PERR=0 

SET  POSSIBLE  EPPOP  COUNT  TO  0 
ERROR=0 

SET  ERROR  COUNT  TO  0 
1=0 
1  =  1  +  1 

IF  I  ,GT  . M AXBUF  )  I  =  1 
1F(TESTB(FLAG,3)''G0  TO  11 
J  =  I 

I F  I J  .GE  .MAXB'JF  )  J=0 


A  SSEM5LY  CODE  TO  ACCESS  UFT?( 1 ,J  +  1 ’  NEEDED  IN  NEXT 
FORTRAN  STATEMENT. 
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113  C 

114  INLINE 

115  LEI,?  10 

116  MPM.3  J  REG3=J*10 

117  APM.3  UFTT  JF.EG3=UFTT+  J*10 

119  LEX, 3, 3 

119  STM, 3  TEMF1  TEMP1=  UFTT(l,J+l) 

120  FINI 

121  IF(. NOT. TEST3 (TEMPI, 16) ) I PERR=I PERR+1 

122  C 

12?  C  ASSEMBLY  CODE  TO  ACCESS  UFTT( 1 , 1 '  ,BUF / 1  , 1 )  AND 

124  C  TO  LOAD  UFTT(4,I)  WITH  TRKCNT*24 . 

125  C 

126  INLINE 


127 

LDM,  3 

I 

128 

SBR.3 

15 

REG  3= 

1-1 

129 

LDI  ,2 

10 

130 

MPR.3 

2 

REG  3= 

( I  —  1 )*10 

131 

ADM,  3 

UFTT 

;REG3 

=UFTT+ ( I 

-1) 

132 

STM  ,3 

TEMP3 

133 

LDX  ,4 

3 

134 

STM, 4 

TEMPI 

TEMP1= 

UFTT  ( 1 , 

I  ) 

135 

ABR.3 

15 

136 

ABR  ,3 

14 

REG 3  POINTS  TO 

UFTT (4 , 

I) 

137 

LDI  ,5 

24 

138 

MPM.5 

TPKCNT 

5F.EG5 

=TRKCNT*24 

139 

STX.5 

3 

UFTT (4 

,1  )=  TRKCNT*24 

140 

LDM,  2 

I 

141 

SBR.2 

.15 

REG  2  = 

1-1 

142 

LDI  ,3 

2946 

143 

MPR.3, 2 

;REG3 

=  (  1-1 ) *2946 

144 

ADM, 3 

BUF 

iPEG? 

=BUF+ ( I- 

1  )* 

145 

STM, 3 

A001 

146 

LDX,  3 

3 

147 

STM, 3 

TEMP2 

TEMP2= 

BUFfl.I 

) 

149  FINI 

149  15  I F (TESTBf TEMPI , 16  > )GO  TO  12 

150  ERROR=ERROA+l 

151  13  IF( . NOT .TESTB (TEMPI ,16) 'GO  TO  13 

152  12  CALL  SETBT ' FLAG ,  I  1 

15?  INLINE 

154  LDI ,2  WDCNT*2 

155  STM, 2  A001+1 

156  LDM , 2  TEMP3 

157  HEX, #81 

159  A001  DFC  0,0 

159  PEX,#14 

160  DFC  #9000,4  DELAY  TO  ALLOW  OTHER  TASKS  TO  RUN 

161  FINI 

162  TRKCNT=TRKCNT+1 

163  IF(TRKCNT.GE.MAXTFK)GO  TO  100 

164  GO  TO  11 

165  100  CONTINUE 

166  INLINE 

167  LDI.l  #4500 

168  OCA, 1, DEV  JTERMINATE  4805  DEVICE 
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169  FINI 

170  I F (ERROR . NE . 0 ' C ALL  MESS  AG  ( '-lES  1 ,  .TP.U 

191  IF' IPERF  .NE. C?)CALL  MESSAG(  MES2,  .TP’T 

172  GO  TO  99 

175  999  STOP 

174  END 
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APPENDIX  E 

DRIVE  STAND  CONTROLLER 

The  drive  stand  controller  is  a  microprocessor  based  system  which 
provides  control  of  the  test  facility  drive  stands.  Actual  control  of 
a  drive  stand  is  achieved  by  supplying  a  DC  voltage  to  the  drive  stand 
power  supply.  A  voltage  of  0-10  VDC  input  to  the  power  supply  produces 
a  drive  stand  speed  of  0-10,000  rpm.  The  drive  stand  controller  receives 
control  commands  from  the  minicomputer  (via  the  procedure  explained  in 
the  main  text  of  this  manual),  processes  these  commands,  and  issues  the 
appropriate  DC  voltage  signals  to  the  drive  stand  power  supply. 

The  drive  stand  controller  consists  of  an  Intel  8080  microprocessor, 
associated  peripheral  components,  and  a  digital-analog  conversion  (DAC) 
circuit.  Following  is  a  discussion  of  how  these  components  interact  to 
process  drive  stand  commands. 

The  microprocessor  basically  inputs  commands  from  the  minicomputer, 
converts  the  commands  to  the  format  required  by  the  DAC  circuit,  and 
outputs  the  processed  commands  to  the  DAC  at  timed  intervals.  The  DAC 
converts  the  digital  signal  to  the  appropriate  DC  voltage. 

The  microprocessor  contains  a  read-only  memory  (ROM)  programmed 
with  a  control  routine.  This  control  routine  directs  the  system  compo¬ 
nents  to  perform  the  input,  process,  output  sequence.  The  source  lan¬ 
guage  for  the  control  routine  is  Intel  PLM.  A  copy  of  this  code  is 
attached. 

Commands  are  input  from  the  minicomputer  via  a  peripheral  interface 
device  (8255).  The  8255  receives  a  serial  command  from  the  minicomputer, 
converts  this  command  to  parallel,  and  issues  an  interrupt  to  the  micro¬ 
processor  CPU  signalling  that  an  input  command  is  available. 

The  CPU  accepts  the  command  and  converts  it  to  the  format  required 
by  the  DAC  to  produce  the  DC  voltage  which  will  achieve  the  requested 
drive  stand  speed.  To  control  acceleration  rate,  this  DC  voltage  will 
be  output  in  timed  steps. 
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An  interval  timer  (8253)  outputs  a  command  from  the  microprocessor  to 
the  DAC  every  10  milliseconds.  Therefore,  for  example,  to  accelerate 
the  drive  stand  from  0  rpm  to  1,000  rpm  at  10,000  rpm/sec  (maximum  accel¬ 
eration  rate),  the  following  series  of  DC  voltage  steps  would  be  output 
from  the  DAC. 


DC  voltage 

time  (msec) 

0 

0 

0.1 

10 

0.2 

20 

0.3 

30 

0.4 

40 

0.5 

50 

0.6 

60 

0.7 

70 

0.8 

80 

0.9 

90 

1.0 

100 

The  minicomputer  and  the  drive  stand  controller  operate  in  a  hand¬ 
shaking  mode  as  follows.  A  time  count  is  decremented  by  the  control  rou¬ 
tine  on  each  iteration.  Input  of  a  new  command  from  the  minicomputer  re¬ 
sets  this  count.  Thus  to  maintain  a  speed,  the  minicomputer  must  periodi¬ 
cally  output  the  command  which  defines  that  speed.  Details  of  how  this 
is  achieved  are  included  in  the  main  text  of  this  manual. 

If  the  controller  count  reaches  zero,  which  means  the  minicomputer 
has  failed  to  issue  a  new  command,  the  drive  stand  controller  is  pro¬ 
grammed  to  force  the  drive  stands  to  zero  speed.  In  addition,  the  con¬ 
troller  must  echo  the  DS#  portion  of  the  drive  stand  command  to  the 
minicomputer.  If  the  minicomputer  does  not  receive  this  echo,  it  puts 
itself  in  a  hold  state.  This  forces  the  drive  stand  controller  to  take 
the  shutdown  action  described  above,  since  no  further  commands  will  be 
issued  by  the  minicomputer.  Thus  if  communication  is  broken  between  the 
minicomputer  and  the  drive  stand  controller,  the  drive  stands  are  brought 
to  zero  speed. 
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Figures  E-l  and  E-2  are  circuit  drawings  of  the  drive  stand  control¬ 
ler.  Figure  E-l  contains  the  additional  circuitry  added  to  a  basic  Intel 
MCS-80  microprocessor  kit  to  achieve  the  structure  needed  for  the  drive 
stand  controller.  For  further  details  on  the  MCS-80  kit  refer  to  Intel 
manual  "MCS-80  System  Design  Kit  User's  Guide."  Figure  E-2  is  the  digi- 
tal -to-anal og  conversion  circuit  which  produces  the  analog  signal  output 
to  the  drive  stand  power  supply. 
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/■>  FOLLOWING  IS  THE  PLM  SOURCE  CODE  FOR  IRE  CONTROL  */ 

/*  ROUTINE  STORED  IN  ?H E  EPROM  OF  THE  INTEL  8080  MICRO-  */ 

/*  PROCESSOR  OF  TRE  DRIVE  STAND  CONTROLLER  */ 

DECLARE  FLAG  BYTE! 

DECLAPE  (SPEED, FATE)(4)BYTEI 
DECLARE  ( DS  , K  ,T IME ) BYTE? 

DECLARE  (SPD.RT, CONTROL) (4) ADDRESS ; 

DECLAP-  BUF ( 7  '  BYTE! 

READMC^  PROCEDURE  INTERRUPT  1? 

/#  ROUTINE  TO  READ  COMMAND  FROM  MODCOMP  ■■-/ 

/*  INVOKED  EY  TXFDY  OF  8281  AT  LEVEL  1  */ 

DECLARE  'VALUE, POINT)  BYTE! 

/*  INPUT  COMMAND  AND  STRIP  OFF  PARITY  */ 

VALUE  =  I  NPUT (0FAP I  AND  7 FH i 
/*  CHECK  POINTER  INTO  PUFFER  */ 

IF  ( ( FQI NT<7  )  OR  (VALUE=0D3 ) ) 

THEN  DO; 

IF'  VALUE=?PR)  /*  0P=CF.  ?PSGI  NNING  OP  NEW  COMMAND  */ 
THEN  POINT=0;  /*  RESET  POINTER  */ 

ELSE  do; 

/*  CHANCE  VALUE  TO  ASCII  AND  STORE  IN  COMMAND  BUFFER  */ 

IF  'VALUE/  3 AH ) 

THEN  SUE ( FOI NT )  -  VALUE  -  30H! 

ELSE  BUF( POINT"  =  VALUE  -  3o« ; 

/*  CHECK  FOR  VALID  HEX  DIGIT  */ 

IF 'BVFC POINT'  <  1ZH ' 

TREN  DO; 

POINT  =  POINT  -  i;  /'*  INCREMENT  FOIN’ 
/*  IF  PCI  NT  IF  EXCEEDS  8,  SET  FLAG  TO  INDICATE  COMMAND  SUFFER  IS 

IF  f  POINT  =7' 

THEN  FLAG =0 ; 

end; 

end; 

end; 

/*  reset  INTERRUPT  CONTROLLER  * / 

OUTF'I?  (  01  OR  '  =  ??a; 

END  RIADMC; 

/*  */ 

/*  '-•'/ 


.ER  */ 

full  */ 


40 

zerosfeeds* 

pPCCsr’iH?; 

81 

/* 

ROUTINE 

WHICH 

FORCES  ALL 

SPEED  AND  RATE  OUTPUT  CCM 

M  A  N  D  6  7  / 

-  C 

/* 

TO  ZERO. 

ROUT 

INE  IS  CALL 

FT  AT  INITIALIZATION  AND 

WHENEVEF  ' 

V 

43 

/* 

MODCOM? 

FAILS 

TO  ISSUE  A 

NEW  CO“MANr  BEFORE  TIMER 

EXPIRES  s 

V 

4  4 

DC  K  1 

mC  3! 

/.* 

S  ID  I K 

'=?; 

4.  c~ 

RT(K) 

=?; 

4  7 

end; 

return; 

4.J 

FNn 

Z EPOS  FEEDS ; 

£  O 

/  ft 

-V 

r  i 

/* 

*/ 

u 

DP  I  VEST  A  ADD 

PROSED 

UP. E  INTERRUPT  2: 

f  3 

/* 

R('”mI  NF 

TO  UFDA  T 7  DRIVES? 

AND  SPEEDS  */ 

C.  * 

/* 

I NVO^ED 

BY  1  ? 

^SFC  Tr^FR 

AT  LEVEL  2  * 

A- 

DECLARE 

( HUB  , L3P , K  )  BYTE) 

t  <7 

/■f 

ENABLE  0 

THSP  I 

N'T  EF  PORTS, 

SC  Tu A T  THIS  ROUTINE  CAN 

y  :)<  / 
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t  n  /if 


5  3 
5P 

ee 

p  i 

62 

/a 

0? 

PA 

/if 

f  A 

/  + 

ee 

6? 

/* 

*  6 

/* 

6  a 
7? 

/* 

71 

72 

•7,7 

/* 

7- 

/* 

UL 

7(7 

/* 

-77 

7  3 

/* 

up 

/* 

6? 

/* 

31 

/* 

3? 

ftp 

/* 

34 

/* 

35 
f  6 

/* 

37 

/* 

33 

69 

/* 

DO 

91 

/* 

92 

&:*, 

o-H 

95 

DO 

/* 

07 

9ft 

99 

123 

1C1 

/if 

122 

ICO 

l?'i 

105 

iec 

1{77 

/if 

1 K  3 
!  ?9 

no 

/ 

in 

ii? 

/* 

INTERRUPTED  BY  LEVEL  1  (INr'JTl  #/ 

enable; 

time=time-i;  /*  decrement  command  timer  */ 

CHECK  TO  SEE  IF  TIME?  HAS  EXPIRED  V 
I F  0 TIME=0' 

THEN  CALL  ZEROSPEEDS;  /*  IF  SC,  FORCE  DFIVES  TC  ZERO  */ 
OTHEPVI SE ,  CALCULATE  KEV  OUTPUT  COMMAND  TO  BE  ISSUE''  TO  D/A  */ 
ELSE  DO  M  TC  3; 

IF  RECUESTED  SPIED  IS  GREATER  THAN  LAST  SFE-T  COMMAND  */ 
ISSUED  PLUS  ONE  INCREMENT  OF  RATE  REQUESTED  */ 

I F  f ' SPD  ?  K' > ( CON TPrL ( K ) *FT(!P )  AND ( RT ( K ) <  >?  •  • 

THEN  NEW  S  FEED  COMMAND  IS  SUM  OF  LAST  COMM  AND  PLUS  ONE  */ 
INCREMENT  OF  ° AT E  */ 

THEN  CONTROL!  !C)  =  CONTPOl(  5  )-P?'iO; 

ELSE,  CHECK  IF  REQUEST  IS  FOR  DECELERATION  */ 

ELSE  IF  (  (SPD (K )  O ( CONTROL (K  ) -RT  (K  )))  AND ( F.T (  K  )<>?  ) 

AND  ( CONTFOL ( K )  >  PT(K!  •  ' 

IF  VALir  DECELERATION,  NEW  COMMAND  IS  LAST  DORMANT  minus  ■■■/ 
RATS  */ 

THEN  CONTROL ( K ' =CONTROL ( K '-?T (K ) ! 

OTHERWISE ,  NEW  COM^AN"1  IS  SPEED  REQUESTED  */ 

ELSE  CO NTROL( K  )  =SPD ( K  )  J 

NOTE:  SINCE  THIS  ROUTINE  EXECUTES  SVff.  Y  1*  MSEC,  A.  RATE  OF 
1  CORRESPONDS  TO  1C?  R?W/SSC  */ 

V 

BITS  MUST  BE  INVERTED  BEFORE  C"??u;T I NG  TO  D/A  CONVERTER  ••= ' 
HPB  =  NOT(HIGHl CONTROL'S  ) )  *  !T  Is"!  AND  ???■»}  > 

NOTE-  UPPER  HEX  DIGIT  OF  TIMER  IS  C'r;?’’r  TO  A  7  SEGMENT  =•’/ 
LED  DISPLAY  ON  CCNTPOLLEF  */ 

L6B-N0T ( LOW < CONTROL (K ) I )  ! 

DISABLE  I NTERR"PTS ,  SO  THAT  FOLLOWING  OUTPUT  ROUTINE  IS  */ 

NOT  I NTEPFUPTFD  */ 

disable; 

0”i'PU?  COMMAID  TO  PA’R  OF  OUTPUT  PORT  a  DETERMINED  ~'i  ■»/' 

DC  CASE  K-i; 

DRIVE  STAND  HI  OUTPUT  */ 

do; 

OUTPUT f 1 7H ' -L8B  ; 

OU'TF"T  ( ??H'  =  H8? ! 

end; 

DP  I  V  c.  STAND  *?  OUTPUT  */ 

do; 

O'.’TPUT  ( &°H )  =  L3B  ! 

CUTFUT  ( 7?H  '  sHHB  •’ 

END; 

DRIVE  STAND  *?  OUTPUT  */ 

DU  ; 

OUTPUT  I  P',n )  =LP? . 

OUT?"D (0B7H t  =  H9  ? ; 

2ND; 

end; 

RE-Ef  ABLE  INTERRUPTS  */ 

enable; 

FNr; 

RESET  INTERRUPT  CONTROLLER  */ 

OUTPUT  f  01  OK  1 -POE ! 
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*  / 


117  r  Eli'F.M  i 

ii4  end  drives  tan- ; 

1 1  £  /* 

IIP  /* 

11?  ECHO?  FROCErURE(  CHAR  )  ! 

116  /*  ROUTINE  TO  ECHO  CHARACTER  'TO  *CrCOM?  */ 

lie;  U'«'Cl»?E  CE.*P  BYTE? 

120  /*  vAi'f  until  txrdy  is  i;  i.e.,  thjnsmitt-r  is  a  ha  i  i  */ 

121  DO  WHILE  '  INPUT f0FBH)AND  01' =01 

12?  END* 

127  /*  CHANCE  CHARACTER  TO  ASCII  AN1'  OJVFU;  .0  -1OPC0M}  */ 

12 4  output; ?F  A  H ' =CHA  F +77H; 


125 

/* 

SAVE  THIS  CHARACTER  (WHICH  IS  FSB'  IN  VARIABLE  K 

*Y  I \pVTT I t 

126 

:<  =  INPU?(0?AH); 

12? 

fecfn; 

126. 

ENT 

echo; 

12* 

/* 

*/ 

177 

/* 

*/ 

171 

STAR 

;T COUNT?  PR  OCEPURE  J 

172 

/* 

HOT I NE  TO  INITIALIZE  DEVICES  */ 

177 

/* 

INITIALIZE  CCUNTEF ,  3257  */ 

17  4 

0”iF'TT;er'’H'=pP6?;  /*  node  7,  binary  count  «■/ 

175 

0’:1  ?u?  ( 0T6H  )  -=70H ;  /*  LSB  0?  COUNT  */ 

176 

OUTPUT;  0D6K  ’  =0;  /*  MS*  CF  COUNT  */ 

13u 

/* 

NOTE:  02? ??  GIVES  A  COUNT  OF  1?  MSEC  */ 

1  7  6 

/* 

INITIALIZE  INTERRUPT  CONTROLLER,  3259  V 

17P 

OUTPUT  I  0F^H  '  ~1?E ;  /*  I  TV/ 1  -  USE  NORMAL  IN'T-IFF”! 

:  TRAPS  *' 

14? 

OUTp-'T^eF'7"'  =?;  /*  I C * 2  -  COMPLETES  ICVfl  */ 

141 

O*'TPH?(0I?E)*0F9H;  /*  0CV1  -  TASK  ALL  I  NT  ERR"?  . 

S  *.X  CEP.’  162 

142 

/* 

INITIALIZE  FS272  POPT,  3251  */ 

14? 

olttp"t; 0fi,h''0cfh;  /*  2  stof  pits,  no  parity,  r 

BIT  C  H  A  F  *  / 

144 

/*  64  X  BAUD  RATE 

*/ 

146 

OUTPUT (0EBH'=2?H;  /*  ENABLE  DEVICE  V 

146 

return; 

147 

ENT 

staptccunt ; 

143 

/* 

#  / 

149 

/* 

*  / 

1  60 

/* 

MAIN  ROUTINE  WHICH  ACCUMULATES  COMMANDS  INPUT  ?Y 

READMC  */ 

1  =  1 

/* 

AND  MAKES  THEM  AVAILABLE  TO  DPIVESTAND  V 

152 

CALL  STARTCOUNT;  /*  INITIALIZE  DEVICES  */ 

1  53 

CALL  ZEROSPEEDS;  /='  INITIALIZE  COMMANDS  */ 

154 

FLAG  =  1 J  /*  INITIALIZE  BUFFEP-I ULL  I  LA G  *  ' 

1  K  C, 

/* 

FOLLOWING  IS  SFCUENCE  OF  INSTRUCTIONS  WHICH  ARE 

CYCLED  */ 

156 

/* 

TtiPCGH  CONTINUOUSLY  */ 

157 

BEGIN?  DISABLE;  /*  DISABLE  INTEFFUFTS  V 

158 

/* 

CHECK  FLAG  TO  SEE  IF  COMMAND  BUFFER  IS  FULL  */ 

159 

IF  FLAG=0 

1  00 

/* 

IF  NOT,  S^IF  FOLLOWING  PROCEDURE  */ 

161 

THEN  I)0; 

162 

FLAG  =  1  5  /*  BESET  FLAG  <■/ 

1  6  7, 

T I ME=  0FFH;  /*  BESET  TIMEF  */ 

164 

PS=  BUP(0';  /*  GET  PS#  FROM  BUFFER  */ 

It  5 

/* 

CHECK  FC?  VALID  DS#  */ 

1 6C 

IF(  'DS  >  0)  AND  ( DS  0  4 ' ' 

164- 

then  ro; 

163 

/* 

ACCUMULATE  SPEED  AND  BATE  COMMAS  */ 

*/ 
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169 

SPD(DS)  =  SHL(  DOUBLE  (SHL(BUI(1),4)+BUF(2)),4'' 

170 

+BUF(3) ; 

171 

PT(DS>  =  SHL ( DOUBLE (SHL (BUF (4) , 4 ) +BUF ( 5 )  )  ,4  ' 

172 

+BUF(6) ; 

173 

end; 

174 

CALL  ECHO(DS);  /*  ECHC  TO  MODCOMP  4/ 

175 

end; 

176 

ENABLE 

?  /* 

RE-ENABLE  INTERRUPTS  */ 

177 

GO  TO 

BEGIN 

;  /*  LOOP  BACK  */ 

178 

/* 

*/ 

179 

/* 

*/ 

180 

/*  NC 

TE: 

in  implementing  this  design,  it  was  found  teat  a  */ 

181 

/* 

DELAY  WAS  NEEDED  BEFORE  ECHOING  TO  THE  MODCOMP.  THE  */ 

182 

/* 

INSTRUCTIONS  TO  ACHIEVE  THIS  DELAY  WERE  ADDED  DIRECTLY  */ 

183 

/* 

TO  THE  EPPOM.  THEPFOPE,  THE  ACTUAL  PROGRAM  STORED  IN  */ 

184 

/* 

THE 

EPROM  IS  SLIGHTLY  DIFFERENT  FROM  THE  ONE  PRESENTED  */ 

185 

/* 

HERE 

V 

186 

EOF 
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APPENDIX  F 

SAFETY  CONDITION  MONITORING  SYSTEM 

One  feature  of  the  Generator  Test  Facility  is  the  automatic  monitor¬ 
ing  of  certain  safety  conditions  during  computer-controlled  testing. 

This  safety  monitoring  is  implemented  using:  (1)  signals  input  to  the 
minicomputer  via  the  wide  range  analog  input  system,  (2)  a  direct  memory 
processor  (DMP)  routine,  INITSAF,  which  stores  these  inputs  in  a  dedicated 
buffer,  and,  (3)  an  overlimit  checking  routine,  SAFCHECK,  which  executes 
during  test  sequence  operation.  The  checking  routine  has  output  routines 
which,  in  the  event  of  an  overlimit  safety  condition,  take  actions  to  shut 
down  the  generator  test.  Following  is  a  detailed  description  of  these 
features. 

In  order  to  monitor  a  condition  for  safety  purposes,  a  DC  voltage 
signal  proportional  to  that  condition  must  be  developed.  This  voltage 
signal  should  be  relatively  smooth  and  can  be  in  the  range  from  a  few 
millivolts  to  ten  volts.  However,  for  better  noise  rejection  and  in  the 
interest  of  standardization,  it  is  recommended  that  a  signal  varying  from 
0-5  VDC  be  supplied.  In  addition,  filtering  and/or  amplification  of  the 
raw  transducer  output  is  sometimes  required. 

After  conditioning,  these  voltage  signals  are  presented  to  an  input 
channel  of  the  analog  input  system  of  the  Modcomp  minicomputer.  The 
analog  input  system  accepts  voltage  inputs  of  12  different  ranges  vary¬ 
ing  from  5  millivolts  to  10.24  volts.  The  software  routine  used  to  input 
from  the  device  selects  the  range  for  reading  and  optionally  a  zero  sup¬ 
pression  value.  The  zero  suppression  feature  measures  the  variance  of  a 
reading  about  a  preselected  value.  By  specifying  the  safety  limit  for 
each  signal  as  its  zero  suppression  value,  a  positive  input  is  present 
only  if  the  signal  is  over  its  limit. 

The  analog  input  system  can  address  up  to  128  different  channels. 

The  channel  addresses  which  exist  in  the  system  depend  upon  which  card 
slots  in  the  card  file  are  occupied.  Refer  to  Modcomp  technical  manual 
for  a  full  description  of  the  wide-range  solid  state  analog  input  system. 
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Following  is  a  description  of  the  software  routines  used  to  input, 
store,  and  check  the  safety  condition  signals.  These  specific  routines 
implement  a  safety  monitoring  scheme  used  for  a  30/40  KVA  VS CF  generator 
system.  To  provide  a  safety  monitoring  scheme  for  other  systems,  these 
routines  must  be  modified  to  reflect  the  new  system's  limits  and  particular 
safety  signals.  The  signals  monitored  and  limits  used  for  the  example 
safety  scheme  are  given  in  Figure  F-l. 

The  subroutine  INITSAF  initiates  input  from  the  analog  input  system. 
INITSAF  is  called  by  the  routine  RUNSYS  immediately  before  execution  of 
any  test  sequence  is  begun.  Input  is  performed  by  a  DMP  which  leaves  the 
main  processor  of  the  minicomputer  free  to  control  generator  test  sequence 
execution.  The  DMP  input  causes  a  dedicated  memory  buffer  to  be  filled 
with  indications  of  any  overlimit  safety  condition.  All  that  is  required 
to  complete  the  safety  monitoring  scheme  is  a  method  to  recognize  an  over¬ 
limit  signal  and  the  means  to  shut  the  test  down.  These  features  are 
included  in  the  drive  stand  control  task,  DSC. 

The  drive  stand  control  task  is  the  software  routine  which  controls 
the  drive  stand  speed  and  acceleration  rate.  This  control  is  provided 
through  an  Intel  8080  microprocessor-based  conditioning  circuit.  Details 
of  the  control  software  of  the  DSC  task  and  the  drive  stand  controller 
are  given  in  other  sections  of  this  manual.  What  is  important  to  the 
safety  monitoring  scheme  is  that  the  DSC  task  is  executing  almost  continu¬ 
ously  during  the  execution  of  a  generator  test  sequence.  Therefore,  by 
using  the  DSC  task  to  invoke  the  overlimit  checking  routine,  a  constant 
monitoring  of  safety  conditions  is  provided. 

Upon  activation  of  the  DSC  task,  a  key  in  the  task  communication 
area  is  set  to  zero.  As  long  as  this  key  (identified  as  SBF)  is  zero, 
no  overlimit  checking  is  performed.  The  RUNSYS  routine,  upon  initiation 
of  execution  of  a  test  sequence,  sets  the  SBF  key  to  a  nonzero  value. 

In  fact,  the  SBF  key  is  set  to  the  address  of  the  buffer  of  safety  data 
located  in  central  memory.  Setting  the  SBF  key  causes  the  SAFCHECK  sub¬ 
routine  of  the  DSC  task  to  perform  an  overlimit  check  on  each  condition 
being  monitored.  Because  of  the  zero  suppression  scheme  employed  by  the 
INITSAF  routine,  any  positive  value  in  the  safety  buffer  represents  an 
overl imi t  signal . 
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AIS  CHANNEL  # 

SIGNAL 

LIMIT 

TRANSDUCER  OUTPUT 

4 

DRIVE  STAND  SPEED 

8667  RPM 

8.667  V 

0 

OIL  TEMPERATURE  IN 

75°C 

75  mV 

1 

OIL  PRESSURE  IN 

120  psi* 

-1200  mV 

5 

VIBRATION 

8G 

400  mV 

68 

DRIVE  STAND  BEARING 
#1  TEMPERATURE 

1 00°F 

2.56  V 

69 

DRIVE  STAND  BEARING 
r2  TEMPERATURE 

1 00°F 

2.56  V 

70 

DRIVE  STAND  BEARING 
#3  TEMPERATURE 

1 00°F 

2.56  V 

71 

DRIVE  STAND  BEARING 
~4  TEMPERATURE 

1 00°F 

2.56  V 

64 

GEARBOX  BEARING 
#1  TEMPERATURE 

200°  F 

4.0  V 

65 

GEARBOX  BEARING 
#2  TEMPERATURE 

200°F 

4.0  V 

66 

GEARBOX  BEARING 
#3  TEMPERATURE 

200°F 

4.0  V 

67 

GEARBOX  BEARING 
#4  TEMPERATURE 

200°F 

4.0  V 

7 

DRIVE  STAND  SPEED 

3000  RPM* 

3  V 

*  OIL  PRESSURE  IN  must  be  above  120  psi  when  the  drive  stand  speed 
monitored  at  channel  # 7  is  above  3000  RPM 


Figure  F-l  -  Example  of  Safety  Scheme 
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In  the  event  a  safety  condition  is  found  to  be  overlimit,  the  SAF- 
CHECK  routine  takes  the  particular  shutdown  action  for  that  condition. 

In  this  way,  the  most  critical  actions  for  that  condition  can  be  per¬ 
formed.  The  mechanism  for  performing  shutdown  involves  basically  clos¬ 
ing  a  relay  contact  in  the  minicomputer  input/output  interface  subsystem 
which  controls  power  to  the  circuit  which  performs  the  action.  The  SAF- 
CHECK  routine  also  issues  a  message  to  the  test  operator  on  the  ISC  color 
display  terminal.  This  message  states  what  condition  caused  the  shutdown 
and  what  actions  were  taken  during  shutdown.  Also  during  shutdown,  the 
DSC  task  puts  itself  in  a  hold  state.  As  explained  in  Appendix  E,  this 
forces  the  drive  stands  to  decelerate  to  zero  speed. 

Tc  '.ontinue  testing  after  an  automatic  shutdown,  the  test  operator 
must  take  several  steps.  First,  he  must  discover  and  correct  the  conditions 
which  caused  the  shutdown.  After  correcting  the  overlimit  condition,  the 
operator  may  have  to  perform  other  steps.  If  the  message,  "DRIVE  POWER 
REMOVED"  is  issued  on  the  ISC  display,  the  operator  must  disable  the 
"lock-out"  mechanism  of  the  drive  stand  controller.  This  lockout  inter¬ 
rupts  the  DC  voltage  supplied  to  the  drive  stand  power  supply.  To  reset 
the  lockout,  momentarily  depress  the  red  push  button  on  the  top  of  the 
lockout  box.  Specific  shutdown  procedures  may  require  additional  restart 
actions.  These  will  be  included  in  the  ISC  message.  Finally,  the  DSC 
task  must  be  resumed.  This  is  done  by  depressing  the  CONSOLE  INTERRUPT 
switch  on  the  Modcomp  minicomputer  control  panel  and  typing/DSC/A  on  the 
teletype  console.  This  aborts  the  DSC  task  which  not  only  resumes  its 
operation  but  also  causes  the  safety  checking  to  be  inactive  until  the 
RUNSYS  routine  activates  it  again. 

It  should  be  noted  that  the  RUNSYS  routine  continues  executing  dur¬ 
ing  and  after  an  automatic  shutdown.  This  execution  must  be  allowed  to 
complete  before  any  restart  actions  are  performed,  so  that  all  actions 
initiated  during  the  test  sequence  are  completed.  When  RUNSYS  has  com¬ 
pleted  a  test  sequence  and  is  ready  for  a  new  test  sequence  maintenance 
command,  it  issues  the  message  "ENTER  COMMAND"  on  the  Tektronix  CRT  screen. 
The  test  restart  actions  can  then  be  performed. 
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Copies  of  the  code  for  the  INITSAF  and  SAFCHECK  routines  are  included 
at  the  end  of  this  appendix.  These  routines  are  written  in  Modcomp  For¬ 
tran  and  assembly  language. 

Also  included  is  a  copy  of  the  routine  SAFETY.  This  routine  can  be 
run  when  operating  the  generator  test  facility  in  the  manual  mode.  SAFETY 
inputs  the  safety  data  which  is  processed  by  the  INITSAF  and  SAFCHECK 
routines  during  computer-controlled  testing.  However,  instead  of  check¬ 
ing  for  overlimit  conditions,  SAFETY  presents  a  tabular  display  of  the 
signals  on  the  ISC  display  screen.  Thus  during  manual  operation,  the 
test  operator  can  visually  monitor  these  safety  conditions.  In  addition, 
the  SAFETY  routine  should  be  run  prior  to  computer-controlled  testing  to 
insure  that  the  safety  signal  transducers,  and  the  minicomputer  analog 
input  system  are  operating  correctly. 

To  execute  the  SAFETY  routine,  the  test  operator  should  type  the 
following  commands  on  the  Tektronix  terminal: 

[JOB] 

[EXE  SAF  LM] 

The  routine  will  respond  with  the  message, 

ENTER  MAX  SPEED 

The  user  then  enters  the  maximum  drive  stand  speed  to  be  allowed  during 
manual  operation.  The  drive  stand  speed,  in  addition  to  being  displayed 
on  the  ISC  terminal,  is  also  checked  against  this  maximum  speed.  If  the 
drive  stand  speed  exceeds  this  maximum,  the  routine  SAFETY  activates  an 
emergency  trip  of  the  drive  stand  which  then  coasts  to  zero  speed.  This 
protection  is  provided  in  the  manual  mode  since  generator  overspeed  is 
probably  the  most  critical  unsafe  condition. 
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1  SUBROUTINE  I NI TSAF( I  TEMP) 

2  c 

3  C  ROUTINE  INITIALIZES  A  DMP  TRANSFER  OF  SAFETT  MONITORING 

4  C  DATA  INPUT  FROM  ANALOG  INPUT  SYSTEM  (DEVICE  NAME=AII )  TO 

5  C  BUFFER  (IBUF). 

6  C  EACH  ANALOG  INPUT  HAS  A  ZERO  SUPPRESSION  VALUE  EQUAL  TO  THE 

7  C  UPPER  LIMIT  OF  THE  SIGNAL  BEING  MONITORED,  SO  THAT  AN 


3 

C 

ENTRY  IS 

MADE  INTO  THE  BUFFER  ONLY 

IF  THE  SIGNAL 

EXCEEDS 

9 

C 

THE  UPPER  LIMIT. 

1? 

c 

THE  DSC 

TASK  SCANS  TEE  BUFFER  AND 

TAKES  'SHUTDOWN'  ACTION 

11 

c 

IF  IT  FINDS  ANY  NON-ZERO  ENTRY. 

12 

c 

13 

C 

NOTE:  ITEMP  IS  A  LOCATION  IN  ROUTINE  RUNSYS  IN 

WHICH  THIS 

14 

c 

SUBROUTINE  STORES  ADDRESS  OF  ORIGINAL  SYSTEM  SI 

INTERRUPT 

15 

c 

handler 

FOP  DEVICE  All. 

If 

c 

17 

c 

13 

C 

ROUT I NE 

CURRENTLY  HANDLES  13  CHANNELS  OF  ANALOG 

I nput; 

19 

c 

MAXIMUM 

IS  16. 

20 

c 

21 

c 

*  *  * 

********* 

*  *  *  * 

*  *  *  * 

22 

c 

*  *  * 

CATALOGUED  ON  UL  10,31,79 

*  *  *  * 

*  *  * 

23 

c 

*  *  * 

********* 

*  *  *  * 

*  *  $  4 

24 

c 

25 

C 

26 

DIMENSION  IT AB ( 34 ) 

27 

DATA 

ITAB  /Z5404, Z0D8A ,Z 5400, Z 001 E , Z5*01 , ZFE20 

28 

1,Z5405,Z0140,Z5444,Z0400,Z5445, 

Z0400.Z5446.Z0400 

29 

1 .Z5447 ,Z0400 ,Z  5440 , Z0640 , Z5441 , 

Z0640 ,Z5442,Z0640 

30 

1 , Z5443  ,  Z0640 , Z5407 , Z04B0 ,8*0/ 

31 

c 

32 

C 

ITAB  IS 

table  which  controls  input 

OF  ANALOG  DAT 

A. 

33 

c 

EACH  CHANNEL  IS  CONTROLLED  BY  A  TWO-WORD  ENTRY. 

FIRS? 

34 

c 

WORD  SPECIFIES  RANGE  AND  CHANNEL, 

SECOND  WORD  SPECIFIES 

35 

c 

ZERO  SUPPERSS ION  VALUE. 

36 

c 

FOP  COMPLETE  DESCRIPTION  OF  ANALOG 

INPUT  SYSTEM, 

REFER  TO 

37 

c 

MODCOMp 

INFUT /OUTPUT  MANUAL. 

33 

c 

39 

c 

SIGNALS 

PRESENTLY  BEING  MONITORED: 

40 

c 

41 

c 

CHANNEL* 

■  SIGNAL  RANGE 

LIMIT 

42 

c 

4 

DS  SPEED  A 

8.667V 

=866?RPM 

43 

c 

3 

OIL  TEMP  IN  A 

75MV=75C 

44 

c 

1 

OIL  PRESS  IN  A 

45 

c 

7 

D.S.  SPEED  A 

46 

c 

2 

VIBRATION  A 

400M V=8G 

47 

c 

68 

D.S.  BEAR.  TEMP  A 

48 

c 

69 

D.S  BEAR.  TEMP  A 

49 

c 

70 

D.S  BEAR.  TEMP.  A 

50 

c 

71 

D.S  .  BEAR.  TEMP.  A 

51 

c 

64 

G.B.  BEAR.  TEMP.  A 

52 

c 

65 

G.B.  BEAR.  TEMP.  A 

53 

c 

66 

G.B.  BEAR.  TEMP.  A 

54 

c 

67 

G.B.  REAP.  TEMP.  A 

55 

c 

56 

n 

u 
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57 

C 

58 

C 

NCH=NUMBEP  OF  CHANNELS 

BEING  MONITORED 

59 

NCH=13 

60 

LNCH=NCH*2 

61 

c 

FOLLOWING  IS  ASSEMBLY 

LANGUAGE  CODE  WHICH  INITIATES  DMP 

62 

c 

TRANSFER 

63 

INLINE 

64 

LDM.10  #00B3 

STORE  SI  TRAP  ADDRESS  IN  TEMP.  LOCAT 

65 

ST**, 10  ITEMP 

66 

LD 1 , 2  SI 

SI  INTERRUPT  HANDLER 

67 

STM, 2  #00D3 

PUT  IN  SI  TRAF 

68 

LDI  ,2  NCH 

GET  ADDR  OF  NCH 

69 

LDX.5,2 

P5=NCH 

70 

TTR  ,2,5 

R2=-NCF, INPUT  WORD  COUNT 

71 

ZBR ,2  ,0 

SET  DMP  LINK  BIT 

72 

STM, 2  #0066 

INPUT  TC 

73 

STM, 2, 5  IBUF 

1ST  WORD  AFTER  DATA  BUFFER 

74 

LDI ,2  LNCH 

GET  ADDR  OF  LNCK 

75 

LDX.6,2 

P6=LNCH 

76 

TTR, 2, 6 

32=-LNCH  ,OUTFUT  WORD  COUNT 

77 

ZBR ,2  .0 

SET  DMP  LINK  BIT 

78 

STM, 2  #0065 

OUTPUT  TC 

79 

STM, 2, 6  ITAB 

1ST  WORD  AFTER  SCAN  TABLE 

90 

LDI, 2  IBUF 

ADDR.  OF  DATA  BUFFER 

31 

STM, 2  #0076 

INPUT  TA 

62 

ABR  ,5,15 

R5=NCH+1 

93 

STM, 2, 5  IBUF 

2ND  WORD  AFTER  DATA  BUFFER 

34 

LDI, 2  ITAB 

ADDR.  OF  SCAN  TABLE 

65 

STM,  2  #0075 

OUTPUT  TA 

36 

ABR, 6, 15 

R6=LNC3+1 

87 

STM, 2, 6  ITAB 

2ND  WORD  AFTER  SCAN  TABLE 

68 

USE  CUSTOM  REX  CALL 

TO 

i  FASS  ADDRESS  OF  DATA  BUFFER,  IBUF, 

39 

* 

TO  DSC  TASK 

90 

LDI, 2  0SBF 

S3F=SAFETY  BUFFER 

91 

LDI ,3  IBUF 

92 

REX ,#4E 

S3 

* 

ALSO  FASS  NUMBER  OF 

CHANNELS  OF  DATA,  NCH,  TO  DSC  TASK 

94 

LDI, 2  ONCH 

95 

LDI ,3  NCH 

96 

LDI, 3, 3 

97 

REX , #4E 

98 

INITIATE  DMP 

99 

LDI, 3  #4400 

SET  UP  TERMINATE  CO**AND 

100 

OCB.3,2 

TERMINATE  OUTPUT 

101 

CCB ,3,3 

T ERM I N ATE  INPUT 

102 

BS 

Y 1  I  SB ,3 , 3  G 

;T 

STATUS  OF  INPUT 

103 

TBRB ,3 ,7  ?S Y 1 

IF  BUSY,  LOOP 

104 

BSY2  ISB.3,2  GET 

STAT"S  OF  OUTPUT 

105 

TBRB, 3, 7  RSY2 

I F  BUSY ,  LOOP 

106 

LDI  ,3  # C 0 00 

SET  UP  TRANSFER  INITIATE  COMMAND, IMF, 

107 

CCB, 3, 3 

initiate  INPUT 

108 

OCB.3,2 

INITIATE  OUTPUT 

109 

3RU  OUT 

JUMP  AROUND  DATA 

110 

SI 

CIR 

IGNORE  SI  INTERRUPTS 

111 

I  BIT  F  PES  18,0 

112 

OUT  NOP 
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1 

2 

3 

4 

5 

6 
7 

a 

9 

10 

11 

12 

13 

14 

15 

16 
17 
ie 

19 

20 
21 
22 

23 

24 

25 

26 
27 
29 
29 
3e 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 
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SUBROUTINE  SAFCRECE 
C 

C  ROUTINE  WHICH  CHECKS  SAFETY  MCNITOF I NG  BUFFER  FOP 
C  ANY  ENTRY  LARGER  THAN  LIMIT 
C  CURRENT  ROUTINE  "SED  FOR  F-lfl  VSCF  T^S? 

C 

C  *  *  #  4  #  &  7  £  #  *  #  s£  sje  ajc 

C  *  *  *  CATALOGUED  CN  UL  11,9,79  *  *  * 

c 

c  EXTERNAL  SUBROUTINES  REQUIRED: 

C 

C  NAME  LOCATION 

n 

O 

C  1 . 

C  2. 

C  3. 

C  4. 

C  5. 

C  6. 

C 
C 

C  INITIALIZE  STCR‘GE  LOCATIONS 
I TEMF1 =0 
I T  EMP2  =0 

C  GET  ADDRESS  OF  SAFETY  BUFFER  f  S  BF  '  FROM  TASK  DATA  AREA 
INLINE 

LDI.2  0SBF 
REX , tf4D 
STM, 3  ITEMF1 
(INI 

C  IF  SBF  ADDF  .  =  0,  SAFETY  ACQUISITION  HAS  NOT  BEEN  INITIATED 
IF!  I  TEMPI  .  EC  .0  )R IT'JRN 

C  GET  NUMBER  OE  CHANNELS  OF  SAFETY  DATA  BEING  ML  ( NCH ) 

INLINE 

TRR.4,3  SAVE  ADDRESS  OF  SBF  IN  PEG  4 
LDI.2  0NCH 
FEXf«4D 
STM, 3  ITEMF1 
FIM 

C  CHECK  FOR  ANY  VALUE  OVER  LIMIT 

C  NOTE:  LOOF  EXTENDS  ONLY  TO  NCH-1,  SINCE  LAST  CHANNEL 
C  IS  A  MINIMUM  DS  SPEED  WHICH  IS  CHECKED  ONLY  IF  OIL  FRESS  IS  LOW 
J  END  =  I T  FMP 1 -1 
DO  10  J  -1  ,  JEND 

C  GET  ONE  WORD  OF  SAFETY  DATA  FROM  SBF 
INLINE 

LDX.2,4  REG  2  =  SAFETY  WORD 
STM, 2  ITEMP2  STORE  IN  FORTRAN  VARIABLE 
FTNI 

C  CONVERT  ANALOG  INPUT  VALUE  TO  DECIMAL 
CALL  AIFL(1,ITEMP2,DATA) 

C  CHECK  FOR  OVER  LIMIT  VALUE 
I F(DAT A  .GT  ,0.)GO  TO  60 
C  INCREMENT  POINTER  INTO  SBF 
INLINE 


AIFL 

LB 

I NITISC 

UL 

ALNUM 

UL 

SETBF 

UL 

SETBT 

UL 

BLNKOFF 

UL 
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57 

ABF  ,4 ,15 

59 

FI  NI 

59 

10 

CONTINUE 

60 

C 

IF  NO  "OVER  LIMIT"  VALUES,  RETURN 

61 

RETURN 

62 

c 

ERASE  ISC  SCREEN  WITH  BLINK  OK 

63 

c 

SELECT  PROPER  SHUTDOWN  ROUTINE 

64 

50 

GO  TO ( 100  ,300 ,400 , 500 ,7  00,700  ,700 

65 

1,700,800,800,800,800 ' , J 

66 

C 

ROUTINE  TO  HANDLE  DRIVE  STAND  OVER  SPEED 

67 

100 

CALL  STOPDP IVE 

63 

CALL  EMEFTRIP 

69 

CALL  INITISC(l) 

70 

c 

FOLLOWING  STATEMENTS  PRINT  MESSAGE  ON  ISC  DISPLAY 

71 

CALL  ALNUM (2,10,  'DS  OVEPSPESD %  12 ) 

72 

CALL  ALNUM(2 ,15,  'DS  CONTROL  ROWER  REMOVED', 24) 

73 

CALL  ALNUM (2  ,20  ,  'DS  EMERGENCY  TRIP',13) 

74 

CALL  BLNKOFE 

75 

c 

HALT  DSC  TASK  AND  FRIN?  MESSAGE 

76 

c 

I NLINE 

77 

c 

HEX, #90 

79 

c 

DFC  MES1 

79 

c 

BRU  OUT 

30 

CMES1  DFC  '  DS  OVERSPEED  ,0 

ei 

COOT  NOF 

32 

C 

F I  NI 

33 

CALL  BELL 

e4 

RETURN 

85 

C 

ROUTINE  TO  HANDLE  REVERSE  DRIVE  STAND  ROTATION 

36 

200  CALL  STOpDfi  IVE 

87 

CALL  EMERTRIP 

98 

CALL  INITISC  (1  ) 

39 

C 

ISC  MESSAGE 

90 

CALL  ALNUM(2, 10, 'REVERSE  DS  ROTATION ', 2e ) 

91 

CALL  ALNUM(2  ,15, 'DS  CONTROL  POWER  REMOVED ',24) 

92 

CALL  ALNUM(2,20,  'DS  EMERGENCY  TRIP', 13) 

93 

CALL  ALNUM (2,25, 'DS C  TASK  HALTED', 16) 

94 

CALL  BLNKOFE 

95 

INLINE 

96 

REX ,#90 

9? 

DFC  MES2 

98 

BRU  0UT2 

99 

MES2  D7C  REVERSE  ES  ROTATION  ,0 

100 

O’" 

72  NOP 

101 

F I  NI 

102 

RETURN 

103 

C 

OIL  TEMPERATUPE  ROUTINE 

104 

300  CALL  STOFDP  IVE 

105 

C 

ISC  MESSAGE 

106 

CALL  I NITISC (1 ) 

107 

CALL  ALNUM;?, 30, 'OIL  TEMF  IN  TOO  HIGH', 20' 

108 

CALL  ALNUM f  2 , 1 5 ,  'DS  CONTROL  FOWER  REMOVED  ' ,  2# ) 

109 

CALL  ALNUM(2,20, 'DSC  TASK  HALTED  '  ,16  ) 

110 

CALL  BINKOFF 

111 

INLINE 

112 

REX , #90 
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113  DFC  MES4 

114  BRU  OUT4 

115  MES4  DFC  “  OIL  TEMP 

116  0UT4  NOP 

117  FINI 

118  RETURN 

119  C  OIL  PRESSURE  ROUTINE 

120  400  CONTINUE 

121  C  CHECK  DRIVE  STAND  SPEED 

122  INLINE 

123  ABR  ,4,14 

124  ABR, 4, 12 

125  LDX.2,4 

126  STM, 2  ITEMP2  MIN.  DS  SPEED 

127  FINI 

126  C  CHECK  IF  DS  UP  TO  SPEED 

129  CALL  AIFL(1 , ITEMP2, DATA ) 

130  IF (DATA. LT.0.) RETURN 

131  CALL  STOFDRIVE 

132  CALL  INITISC  (1  ) 

133  C  ISC  MESSAGE 

124  CALL  ALNUM(2,10, 'LOW  OIL  PPESSURE ' , 1 6 } 

135  CALL  ALNUM (2,15,  'DS  CONTROL  POWER  REMOVED  ',24) 

136  CALL  ALNUM'2,20,  'DSC  TASK  HALTED', 24'. 

137  CALL  BLNKOFF 

138  INLINE 

139  REX, #90 

140  TFC  MES5 

141  BRU  OUTS 

14?  MES5  DFC  "  LOW  OIL  PPESSURE", 0 

143  OUTS  NQF 

144  FINI 

145  RETURN 

146  C  VIBRATION  ROUTINE 

147  500  CALL  STOPDPIVE 

1 48  CALL  INITISC (1  1 

149  C  ISC  MESSAGE 

150  CALL  ALNUM (2,10,  'EXCESSIVE  V I  BRAT  I  ON  '  ,20 ) 

151  CALL  ALNUM (2,15,  'DS  CONTROL  FOWEP  REMOVED  ',  ?4) 

152  CALL  ALNU«(2,20, 'DSC  TASK  HALTED', 16' 

153  CALL  BLNKOFF 

154  INLINE 

155  REK.W90 

156  DFC  MES  6 

157  BRU  0UT6 

156  MES6  DFC  "  EXCESSIVE  VIBRATION",? 

169  OUT6  NOP 

160  FINI 

161  RETURN 

162  C  SCAVENGE  P'LMP  ROUTINE 

163  600  CALL  STOPDR IVE 

164  C  ISC  MESSAGE 

165  CALL  ALNUV|(2. 10, 'SCAVENGE  NOT  OPES  A  T I NG  ' ,  22  ) 

166  CALL  ALNUM (2,15,  'DS  CONTROL  POWER  P.  "MOVED ',  24) 

16?  CALL  ALNUM ! 2  ,20 ,  'DSC  TASK  calTEP',16 

163  CALL  BLNKOFF 
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169 

INLINE 

170 

FEX , #90 

171 

TFC  MES7 

17? 

BRU  OUT? 

173 

MES7  FFC  '  SCAVENGE  NOT  OPEPATING  ,0 

174 

OUT 

7  NOP 

175 

FINI 

176 

RETURN 

17? 

C 

DRIVE  STAND  BEARINGS  ROUTINE 

178 

700 

CALL  STOPDRIVE 

179 

CALL  INITISC (1 1 

180 

C 

ISC  MESSAGE 

181 

CALL  ALNUM  f  2 ,1 0 , 'DS  BEARINGS  OVERHEATED ', 22 ) 

ie2 

CALL  ALNUM '2,1 5,  'DS  CONTROL  POWER  REMOVED', 24) 

133 

CALL  ALNUM (2, 20, 'DSC  TASK  HALTED ',16' 

134 

CALL  BLNKOFP 

165 

INLINE 

136 

REX ,#90 

187 

DFC  MES8 

166 

BRU  OUTe 

139 

MES3  DFC  DRIVE  STAND  BEARINGS  OVERHEATED  ,0 

190 

OUT8  NOP 

191 

FINI 

192 

return- 

193 

C 

gear  BOX  BEARINGS  FOUTINE 

194 

600 

'  CALL  STOPDRIVE 

195 

CALL  INITISC  (1  ) 

196 

C 

ISC  MESSAGE 

197 

CALL  ALNUM 1 2, 10, 'GEAR  BOX  BEARINGS  TOO  HOT', 26! 

193 

CALL  ALNUM(2 ,15,  'DS  CONTROL  POWER  REMOVED ',24) 

199 

CALL  ALNUM(2,20, 'DSC  TASK  HALTED', 16' 

200 

CALL  BLNKOFF 

201 

INLINE 

202 

PEX , #90 

203 

DFC  MES9 

204 

BRU  0"T9 

205 

M ES9  DFC  "  GEAP  BOX  BEAPI NGS  OVERHEATED  ,0 

206 

0UT9  NOF 

207 

FI  NI 

208 

RETURN 

209 

END 

210 

C 

211 

C 

212 

SUBROUTINE  SETBITf NBIT) 

213 

C 

214 

c 

ROUTINE  TO  SET  BIT  AND  OUTPUT  IN  EXTERNAL  RELAY 

215 

c 

OUTPUT  SCHEME 

216 

c 

21? 

DATA  IWORD/0/.NSCAN/Z4019/ 

218 

c 

SET  BIT  IN  CONTROL  WORD 

219 

CALL  SETBF(IWCRD.NBIT) 

220 

c 

OUTFUT  CONTPOL  WOPD 

221 

INLINE 

222 

LDI ,2  UFT 

223 

REX  ,  1 

224 

DFC  I WORD, 2 
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225  3RD  OUT 

226  DEC  NSCAN.l 

22?  UFT  RFC  0 , ODOO  ,#3400 ,0 , 0 , 0 

228  OUT  MOP 

229  FINI 

230  RETURN 

231  END 

232  C 

233  C 

234  SUBROUTINE  CLRB IT( N3I TI 

235  C 

236  C  ROUTINE  TO  CLEAR  BIT  AND  OUTFIT  IN  EXTERNAL  RELAY  OUTPUT 

237  C  SCHEME 

236  C 

239  DATA  IWORD/0/, NSCAN/Z4019/ 

2^0  C  CLEAR  BIT  IN  CONTROL  WORD 

241  CALL  SETBT' IWORD, MBIT) 

242  C  OUTPUT  CONTROL  WORD 

243  INLINE 

244  LDI ,2  UFT 

245  REX , 1 

?4g  DFC  IW0PD.2 

247  3RU  OUT 

243  DFC  NSC AN  ,1 

24S  UFT  DFC  0 . 9D00 , #8^00 , 0 , 0, 0 

250  OUT  NOP 

251  FINI 

252  RETURN 

253  ENT 

254  C 

255  C 

256  SUBROUTINE  STOPDFIVE 

257  C 

258  C  FIRST  USED  IN  150  KVA  I  DC  TEST 

259  C  ALSO  USED  IN  F-16  VSCF  TEST 

260  C  SHOULD  BE  APPLICABLE  FOR  ALL  TESTS 

261  C  PUTS  PULSE  ON  CONTACT  #12,  WHICH  REMOVES  D3  CONTROL 

262  C  VOLTAGE  AND  ACTIVATES  "LOCK-OUT" 

263  C  “LOCK-OUT"  IS  RESET  WITH  RED  BUTTON  ON  ~I0 80  DS  CONTROL 

264  C  INTERFACE  BOX 

265  C 

266  C  SET  BIT 

267  CALL  SETBITI4) 

268  C  WAIT  .5  SEC 

269  INLINE 

270  REX, #14 

271  DFC  #6000,100 

272  FINI 

273  C  CLEAR  BIT 

274  CALL  CLRBIT ( 4) 

275  RETURN 

276  END 

277  C 
273  C 

279  SUBROUTINE  EMERTRIP 

260  C 


i 

j 


80 


AFWAL-TR-80-2033 


*D  HODCOMP  SOURCE  EDITOR  DATE  12/27/79  22:25:03 


281  C  USED  FIRST  IN  150  KVA  IDG  TEST 

282  C  SHOULD  BE  APPLICABLE  FOR  ALL  TESTS 

283  C  PUTS  A  PULSE  ON  CONTACT  #7,  WHICH  ACTIVATES  DS 

284  C  TRIP 

285  C 

286  C  SET  BIT 

297  CALL  SETBIT (12  ) 

288  C  WAIT  .5  SEC 

289  INLINE 

290  REX, #14 

291  DFC  #8000,100 

292  FINI 

293  C  CLEAR  BIT 


294 

CALL  CLRBIT { 12 ) 

295 

RETURN 

296 

END 

297 

C 

298 

C 

299 

SUBROUTINE  BLNKOFF 

300 

INLINE 

301 

LDI.2  UFT 

302 

F.EX.l 

303 

DFC  BUF, 2 

304 

BRU  OUT 

305 

UFT 

DFC  0,0ISC,#9090, 0,0,0 

306 

BUF 

DFC  #0F0E 

307 

OUT 

NOP 

308 

FI  NI 

30  G 

RETURN 

310 

END 

311 

C 

312 

C 

313 

SUBROUTINE  BELL 

314 

1 

CONTINUE 

315 

INLINE 

316 

LDI.2  UFT 

317 

REX  ,1 

319 

DFC  BUF, 2 

319 

BRU  OUT 

320 

UFT 

DFC  0.3ISC, #9080, 0,0,0 

321 

BUF 

DFC  #0707 

322 

OUT 

NOP 

323 

FINI 

324 

I F(l.  EC. 2 'RETURN 

325 

GO  TO  1 

I 
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1  PROCRAM  SAFETY 

2  C 

3  C  THIS  ROUTINE  IS  RUN  WHEN  OPERATING  A  GENERATOR  IN  THE  MANUAL  MODE. 

4  C  IT  SERVES  TWO  FUNCTIONS.  FIRST,  ALL  SAFETY  SIGNALS  BEING  MONITORED 

5  C  ARE  DISPLAYED  IN  TABULAR  FORM.  THIS  DEMONSTRATES  THAT  THOSE  AIS 

6  C  CHANNELS .TRANSDUCERS, ETC.  ARE  FUNCTIONING  PROPERLY  BEFORE  COMPUTER 

7  C  CONTROLLED  TESTING  IS  BEGUN.  NOTE  THAT  FOR  EACH  NEW  GENERATOR 

8  C  SYSTEM,  THIS  ROUTINE  MUST  BE  CHANGED  TO  TAKE  INTO  CONSIDERATION 

9  C  ALL  SAFETY  SIGNALS  USED  FOR  THAT  SYSTEM.  SECONDLY,  TEE  USER  ENTERS 
If  C  THE  MAXIMUM  DRIVE  STAND  SPEED  ALLOWABLE  FOR  THE  CURRENT  GENERATOR. 

11  C  IF  THIS  SPEED  IS  EXCEEDED,  THE  EMERGENCY  TRIP  CIRCUIT  IS  ACTIVATED, 

12  C  WHICH  STOPS  THE  DRIVE  STAND. 

13  C 

14  DIMENSION  I NUFT{ 22 ) , I BUF( 12} 

15  DATA  INDF?/0.12,0.0,Z94B0,0,0,0,'AI','I',Z0204 

16  1, 20200, Z0201 ,Z0?05,Z0244,Z0245,Z0246,Z0247 

1?  1, 202*0, Z0241 , 20242, Z0243/ 

18  C  USER  ENTERS  MAX  SPEED 

19  WPITEI8.1001 

20  100  FORMAT  <  '  ENTER  MAX  SPEED') 

21  READ (7 ,200 (SPEED 

22  200  f OPMAT ( F10 .2  1 

23  C  ERASE  ISC  SCREEN 

24  CALL  GR APHI CS (3  ) 

25  CALL  ERASCPEEN 

26  10  CONTINUE 

27  C  LOOF  TO  INPUT  AND  DISPLAY  SAFETY  SIGNALS 

28  DO  70  KE=1, 10000 

29  C  INPUT  BUFFER  OF  SAFETY  DATA 

30  CALL  AIRDW(12,INUFT,IBUF,M) 

31  C  CONVEPT  DRIVE  STAND  SPEED  TO  FLOATING  POINT 

32  CALL  AIFLI 1  ,  IBUFll ) , DAT A I 

33  C  CHECK  FOR  OVERSPEED 

34  I  FI  DATA . LT .SPEED )GO  TO  20 

35  C  ACTIVATE  DRIVE  STAND  EMERGENCY  TRIP 

36  CALL  EMERTRIP 

37  C  OUTPUT  MESSAGE 

38  CALL  INITISCfl  ) 

39  CALL  ALNUM (2 ,10 ,  'DS  OVERSPEED  ',  12 ) 

40  CALL  ALNUM(2,15, 'DS  EMERGENCY  TRIP', 181 

41  CALL  ALNUM 1 2,20 ,  'SAFETY  MONITORING  HALTED', 24) 

42  C  EXIT  THIS  ROUTINE 

43  STOP 

44  C  OUTPUT  DRIVE  STANT  SPEED 

45  20  DATA=DATA*3. 

46  W  P I  ?  E  ( 6 , 300  )  DA  TA 

300  FORMAT!//'  DRIVE  STAND  SPEED  =  '.F10.2,'  RPM') 

48  C  CONVEPT  OIL  TEMP  TO  FLT .  PT. 

49  CALL  AIFLfl,IBUF(2), DATA) 

50  C  OUTPUT  OIL  TEMP 

51  WR IT E (6  ,400 (DATA 

5?  400  FORMAT'//'  OIL  TEMP  IN  =  '.F10.2,'  DEG  C') 

53  C  CONVERT  OIL  PRESSURE  TO  FLT.  PT . 

54  CALL  AIFL(1  ,IB1JF(3), DATA) 

55  C  CONVEPT  TO  PS  I 

56  DATA-DATA /10 . 


82 


ft1!#*;—.-. 


AFWAL-TR-80-2033 


*D  MODCCMp  SOURCE  EDITOR  DATE  12/27/79  22:2 5:27  PAGE  2 


57  C  OUTPUT  OIL  PRESSURE 

58  VR I TS ( 6 , 520  )  DATA 

59  522  FOPMAT!//'  OIL  PFESSUPE  IN  =  '.F10.2,'  PSI') 

60  C  CONVERT  VI  PRAT  I  ON  READING  TO  FLT .  PT . 

51  CALL  AIFL(l,IBUF(4l, DATA } 

62  C  CONVERT  TO  G 'S 

63  DATA=D AT A/100 . 

54  C  OUTPUT  V I  BP AT  ION 

65  WRITE! 6, *00  IDA TA 

66  600  FORMAT!//'  VIBRATION  =  ',710.2,'  G  '  ) 

67  C  CHECK  BEARING  TEMPEPATURES 

66  WR ITE ( 6 , 650  ) 

69  650  FORMAT (80X) 

70  C  INITIALIZE  FLAG  WFCICE  INDICATES  HCV  MANY  OVER-TEMP  BEARINGS 

71  NGOOD=? 

72  C  CHECK  DRIVE  STAND  BEARINGS 

73  DO  30  K=1 ,4 

74  C  CONVERT  TO  FLOATING  POINT 

75  CALL  AIFL(1 ,IBUF(K+4) .DATA) 

76  C  CHECK  FOP  VALID  READING 

7'7  IF(DATA.C-T. 500. .AND. DATA. LT. 2560. )GO  TO  30 

78  C  OUTPUT  I NVALID  READING 

79  WRITE(6 ,700)K,DATA 

80  70?  FORMAT!'  DRIVE  STAND  BEARING  #'.11,  '  =  ',F10.2,1?X) 

81  C  INCREMENT  FLAG 

82  NG  OOD  =  NGOOD  +  l 

£3  3e  CONTINUE 

84  C  CHECK  GEAR  BOX  BEARINGS 

85  DO  40  K =1,4 

86  C  CONVERT  TO  FLOATING  POINT 

87  CALL  AIFL(1 ,IBUF(K+S) .DATA) 

88  C  CHECK  FO*  VALID  READING 

89  IF!DATA. GT. 2500. .AND. DATA. LT. 3500.  )GO  TO  40 

90  C  OUTPUT  INVALID  READING 

91  VP  ITE  (6 ,800  )  K,  DATA. 

92  800  FORMAT!'  GEAR  BOX  BEARING  #',11.'  =  '.F10.2.10X) 

93  C  INCREMENT  FLAG 

94  NGOOD=NGOOD+1 

95  40  CONTINUE 

96  C  WERE  ANY  BEARING  TEMPS  BAD? 

97  I F ( NGOOD  .  EC  .0 ' GO  TO  60 

96  C  IF  THERE  WERE  ANY  BAD  READINGS,  WIPE  OUT  "OLD"  MESSAGES 
99  LPEND=9-N000D 

100  DO  50  LP  =  1 , LP END 

101  50  WR ITE ( 6 , 9??  ) 

102  90?  FORMAT ( 80X  ) 

103  C  GO  TO  END  CF  LOOP 

ie4  GO  TO  7e 

105  C  OUTPUT  MESSAGE  INDICATING  ALL  BEARING  TEMPS  ARE  O.K. 

106  60  VPITE(6, 10001 

107  1007  FORMAT(P0X,/,60X,/ 

103  1,'  ALL  DRIVE  STAND  AND  GEAR  BOX  BEARING' 

109  1,/,'  TEMPER ATUP ES  ARE  WITHIN  LIMITS  ',10X,4(/,80X' ) 

110  C  RESET  CURSOR  TO  REPRINT  TABLE 

111  70  CALL  HO**E 

112  C  ALLOW  USEP  TO  PESTART  LOOP  OR  QUIT 
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11?  ¥3 ITE ( 8.1100) 

114.  u0(?  FORMAT  ('  IS  TEST  COMPLETE?  ( Y  OR  M') 

115  PEADI?, 1200) IANS 

116  1200  FORMAT(Al) 

117  IF(IANS.EO.'N''GO  TO  10 

118  STOP 

119  END 

120  C 

121  C 

122  SUBROUTINE  HOME 

123  C 

124  C  ROUTINE  VHI Cfi  MOVES  CURSOR  OE  ISO  TERMINAL  TO  HOME  POSITION 

125  C 

126  INLINE 

127  LEI, 2  UFT 

123  REX ,  1 

129  DFC  BUF.2 

130  BRU  OUT 

131  UFT  DFC  0,0130 ,09030, 0,0,0 

132  BUF  DFC  #0800 

13?  OUT  NOF 

134  FINI 

135  PETURN 

136  ENT 
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